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SEQ 0012 



.:4 



422 




423 




424 




425 




426 




427 




428 




429 




430 


001100 


431 




432 




433 




434 




435 


00001 1 


436 


000012 


437 


000015 


438 


000200 


439 


177776 


440 




441 


177774 


442 


177772 


443 


177570 


444 


177570 


445 




446 




447 


000000 


448 


000001 


449 


000002 


450 


000003 


451 


000004 


452 


000005 


453 


000006 


454 


000007 


455 


000006 


456 


000007 


457 




458 




459 


000000 


460 


000040 


461 


000100 


462 


000140 


463 


000200 


464 


000240 


465 


000300 


466 


000340 


467 




468 




469 


100000 


470 


040000 


471 


020000 


472 


010000 


473 


004000 


474 


002000 


475 


001000 


476 


000400 


477 


000200 



.SBTTL BASIC DEFINITIONS 

;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
STACK«= 1100 

.EOUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 

.EOUIV lOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 



;*MISCELLANEOUS DEFINITIONS 



HT = 
LF = 
CR = 
CRLF = 
PS = 

.EQUIV 
STKLMTs 
PIRO = 
DSWR = 
DDISPs 



11 

12 

15 

200 

177776 

PS.PSW 

177774 

177772 

177570 

177570 



;CODE FOR HORIZONTAL TAB 

;CODE FOR LINE FEED 

;CODE FOR CARRIAGE RETURN 

ICODE FOR CARRIAGE RETURN-LJNE FEED 

;PR0CE:,S0R STATUS WORD 

•.STACK LIMIT REGISTER 
;PR0GRAM INTERRUPT REQUEST REGISTER 
;HARDWARE SWITCH REGISTER 
;HARDWARE DISPLAY REGISTER 



;*GENERAL PURPOSE REGISTER DEFINITIONS 

R0= %0 

R1= %1 

R2= %2 

R3= %3 

R4= %4 

R5= %5 

R6= %6 

R7= %7 

SP= %6 

PC= %7 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



♦PRIORITY LEVEL DEFINITIONS 



PRO = 
PR1 = 
PR2 = 
PR3 = 
PR4 = 
PR5= 
PR6« 
PR7 = 



100 
140 
200 
240 
300 
340 



•.PRIORITY LEVEL 

;PRIORITY LEVEL 1 

;PRIORITY LEVEL 2 

;hHlORITY LEVEL 3 

-.PRIORITY LEVEL 4 

;PRIORITY LEVEL 5 

IPRIORITY LEVEL 6 

{PRIORITY LEVEL 7 



•.•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15= 100000 

SW14= 40000 

SW13= 20000 

SW12= 10000 

SW11= 4000 

SW10= 2000 

SW09= 1000 

SW08= 400 

SW07« 200 
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BASIC DEFINITIONS 



jBIi 



478 


000100 


479 


000040 


480 


000020 


481 


000010 


482 


000004 


483 


000002 


484 


000001 


485 




486 




487 




488 




489 




490 




491 




492 




493 




494 




495 




496 




497 


100000 


498 


040000 


499 


020000 


500 


010000 


501 


004000 


502 


002000 


503 


001000 


504 


000400 


505 


000200 


506 


000100 


507 


000040 


508 


000020 


509 


000010 


510 


000004 


511 


000002 


512 


000001 


513 




514 




515 




516 




517 




518 




519 




520 




521 




522 




523 




524 




525 


000004 


526 


000010 


527 


000014 


528 


000014 


529 


000014 


530 


000020 


531 


000024 


532 


000030 


533 


000034 



SW06= 

SW05 = 

SW04 = 

SW03 = 

SW02 = 

SW01 = 

SW00 = 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 



100 

40 

20 

10 

4 

2 

1 

SW09,SW9 

SW08,SW8 

SW07,SW7 

SW06,SW6 

SW05,SW5 

SW04,SW4 

SW03,SW3 

SW02,SW2 

SW01 .SW1 

SWOO.SWO 



;*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 



BIT14= 
BIT13= 
BIT12= 
BIT11= 
BIT10= 
BIT09= 
BIT08= 
BIT07= 
BIT06= 
81105= 
BIT04= 
BIT03= 
BIT02= 
BIT01= 
BITOO= 
•EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 
.EOUIV 

;*BASIC 
ERRVEC=: 
RESVEC= 
TBITVEC^ 
TRTVEC= 
BPTVEC= 
IOTVEC= 
PWRVEC= 
EMTVEC= 
TRAPVEC^ 



BIT09,BIT9 
BIT08,BIT8 
BIT07,BIT7 
BIT06,BIT6 
BIT05,BIT5 
BIT04,BIT4 
BIT03,BIT3 
BIT02,BIT2 
BIT01 .BIT1 
BITOO, BITO 



"CPU" 

4 

10 



TRAP VECTOR ADDRESSES 

jTIME OUT AND OTHER ERRORS 

; RESERVED AND ILLEGAL INSTRUCTIONS 

;"T" BIT 

;TRACE TRAP 

{BREAKPOINT TRAP (BPT) 

; INPUT/OUTPUT TRAP (lOT) **SCOPE** 

; POWER FAIL 

•.EMULATOR TRAP (EMT) ♦*ERROR** 

•.-TRAP'* TRAP 
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534 




000060 


535 




000064 


536 




000240 


537 




176500 


538 




000300 


539 




000400 


540 




000001 


541 




161000 


542 




000003 


543 






544 






545 




000000 


546 






547 






548 






549 






550 






551 






552 




000014 


553 


000014 


012254 


554 


000016 


000340 


555 






556 




000042 


557 


000042 


000000 


558 






559 






560 






561 






562 




000174 


563 


000174 


000000 


564 


000176 


000000 


565 






566 




000200 


567 


000200 


000137 002546 


568 


000204 


000137 014762 


569 


000210 


000137 015202 
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BASIC DEFINITIONS 




TKVEC« 


60 






TPVEC» 


64 






PIROVEC 


»240 








ABASE= 


176500 






AVECT1« 


300 






AUSWR= 


400 






$TN = 


1 






$SWR = 


161000 






BPT = 


000003 



SEQ 0014 



;;TrY KEYBOARD VECTOR 

;;TTY PRINTER VECTOR 

;; PROGRAM INTERRUPT REQUEST VECTOR 



;THIS IS THE COMMAND FOR A TRAP 
; THROUGH 14 ( BPT TRAP) 

.=0 

;*ALL UNUSED LOCATIONS FROM 4-776 CONTAIN A ".+2,BPT'' 

;*SEOUENCE TO CATCH ILLEGAL TRAPS & INTERRUPPTS 

; ♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 



. = 14 

.WORD 

.WORD 



CATCH 
340 



42 




174 

DISPREG:.WORD 

SWREG: .WORD 

.«200 

UMP START 

JMP ECHO 

JMP OUTTST 



;THE BPT TRAP VECTOR POINTS TO THE 
; ILLEGAL TRAP HANDLER "CATCH" 



;D0 INTERFACE TEST 

;D0 ECHO TEST 

;D0 OUTPUT TEST TO TERMINAL 



lii 
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BASIC DEFINITIONS 



SEQ 0015 



570 






571 




000500 


572 






573 






574 






575 






576 




000500 


577 




000046 


578 


000046 


012152 


579 




000052 


580 


000052 


000000 


581 




000500 


582 






583 






584 






585 






586 






587 




000500 


588 




000024 


589 


000024 


000200 


590 




000044 


591 


000044 


000500 


592 




000500 


593 






594 






595 






596 






597 


000500 




598 


000500 


000000 


599 


000502 


001066 


600 


000504 


000050 


601 


000506 


000060 


602 


000510 


000055 


603 


000512 


000030 


604 







500 
.SBTTL ACT11 HOOKS 

■HOOKS REQUIRED BY ACT11 

$SVPC=. 

.=46 

SENDAD 

.=52 

.WORD 

.=$SVPC 
.SBTTL APT PARAMETER BLOCK 

.♦«#**♦*************♦**********♦************ 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



********************************* 

;SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

; ;2)SET L0C.52 TO ZERO 
; ; RESTORE PC 



.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ; ;FOR APT START UP 

.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ;; POINT TO APT HEADER BLOCK 

.=.$X ;;RESET LOCATION COUNTER 
.^^,i^**m***************************** ********************** ****** 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 

TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
ADDRESS OF APT MAILBOX (BITS 0-15) 
RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
$ETEND-$MAlL/2 ;; LENGTH MAI LBOX-ETABLE( WORDS) 



SAPTHD: 






SHIBTS: 


.WORD 





SMBADR: 


.WORD 


SMAIL 


$TSTM: 


.WORD 


50 


SPASTM: 


.WORD 


60 


SUNITM: 


.WORD 
.WORD 


55 

SETEN 
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605 






606 






607 






608 






609 






610 






611 




001000 


612 


001000 




613 


001000 


000000 


614 


001002 


000 


615 


001003 


000 


616 


001004 


000000 


617 


001006 


000000 


618 


001010 


000000 


619 


001012 


000000 


620 


001014 


000 


621 


001015 


001 


622 


001016 


000000 


623 


001020 


000000 


624 


001022 


000000 


625 


001024 


000000 


626 


001026 


000000 


627 


001030 


000000 


628 


001032 


000000 


629 


001034 


000 


630 


001035 


000 


631 


001036 


000000 


632 


001040 


177570 


633 


001042 


177570 


634 


001044 


177560 


635 


001046 


177562 


636 


001050 


177564 


637 


001052 


177566 


638 


001054 


000 


639 


001055 


002 


640 


001056 


012 


641 


001057 


000 


642 


001060 


000000 


643 


001062 


077 


644 


001063 


015 


645 


001064 


000012 


646 






647 






648 






649 






650 






651 


001066 




652 


001066 


000000 


653 


001070 


000000 


654 


001072 


000000 


655 


001074 


000000 


656 


001076 


000000 


657 


001100 


000000 


658 


001102 


000000 


659 


001104 


000000 


660 


001106 
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COMMON TAGS 



.SBTTL COMMON TAGS 



►THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
nUSED in the PROGRAM. 



; START OF COMMON TAGS 





.WORD 





STSTNM: 


.BYTE 





SERFlG: 


.BYTE 





$ICNT: 


.WORD 





SLPADR: 


.WORD 





SLPERR: 


.WORD 





SERTTL: 


.WORD 





SITEMB: 


.BYTE 





SERMAX: 


.BYTE 


1 


SERRPC: 


.WORD 





SGDADR: 


.WORD 





SBDADR: 


.WORD 





SGDDAT: 


.WORD 





$BDDAT: 


.WORD 







.WORD 







.WORD 





$AUTOB: 


.BYTE 





SINTAG: 


.BYTE 







.WORD 





SWR: 


.WORD 


DSWR 


DISPLAY 


.WORD 


DDISP 


$TKS: 


177560 




$TKB: 


177562 




$TPS: 


177564 




$TPB: 


177566 




$NU L L : 


.BYTE 





SPILLS: 


.BYTE 


2 


SFILLC: 


.BYTE 


12 


STPFLG: 


.BYTE 





SESCAPE 







SOUES: 


.ASCII 


/?/ 


$CRLF: 


.ASCII 


<15> 


$LF: 


.ASCIZ 


<12> 



.SBTTL APT MAILBOX-ETABLE 



;CONTAINS THE TEST NUMBER 

;CONTAINS ERROR FLAG 

.-CONTAINS SUBTEST ITERATION COUNT 

.-CONTAINS SCOPE LOOP ADDRESS 

;CONTAINS SCOPE RETURN FOR ERRORS 

;CONTAINS TOTAL ERRORS DETECTED 

JCONTAINS ITEM CONTROL BYTE 

;CONTAINS MAX. ERRORS PER TEST 

;CONTAINS PC OF LAST ERROR INSTRUCTION 

; CONTAINS ADDRESS OF 'GOOD' DATA 

ICONTAINS ADDRESS OF 'BAD' DATA 

;CONTAINS 'GOOD' DATA 

;CONTAINS 'BAD' DATA 

; RESERVED — NOT TO BE USED 

;AUTOMATIC MODE INDICATOR 
;INTERR'PT MODE INDICATOR 

lADDRESS OF SWITCH REGISTER 
;ADDRESS OF DISPLAY REGISTER 
;TTY KBD STATUS 
;TTY KBD BUFFER 

;TTY PRINTER STATUS REG. ADDRESS 
;TTY PRINTER BUFFER REG. ADDRESS 
;CONTAINS NULL CHARACTER FOR FILLS 
;CONTAINS ft OF FILLER CHARACTERS REQUIRED 
[INSERT FILL CHARS. AFTER A "LINE FEED" 
I "TERMINAL AVAILABLE" FLAG ( BIT<07>»0=iYES) 
; ESCAPE ON ERROR ADDRESS 
[QUESTION MARK 
CARRIAGE RETURN 
:LINE FEED 



**.^ni^*m■t^^^^H|t■^^^mDlm*>in^'¥**il^i»^ 



.EVEN 








SMAIL: 






;APT MAILBOX 


SMSGTY: 


.WORD 


AMSGTY ; 


IMESSAGE TYPE CODE 


SFATAL: 


.WORD 


AFATAL ; 


; FATAL ERROR NUMBER 


STESTN: 


.WORD 


ATESTN ; 


;TEST NUMBER 


SPASS: 


.WORD 


APASS ; 


:PASS COUNT 


SDEVCT: 


.WORD 


ADEVCT ; 


iDEVICE COUNT 


$UNIT: 


.WORD 


AUNIT ; 


;I/0 UNIT NUMBER 


$MSGAD: 


.WORD 


AMSGAD ; 


;MESSAGE ADDRESS 


SMSGLG: 


.WORD 


AMSGLG ; 


;MESSAGE LENGTH 


SETABLE: 






;APT ENVIRONMENT TABLE 



.MAIN. MACY11 30A(1052) 19-APR-78 
C2DLDC.P11 19-APR-7a 11:41 



w 



661 


001106 


000 


662 


001107 


000 


663 


001 1 10 


000000 


664 


001112 


000400 


665 


001114 


000000 


666 






667 






668 






669 






670 






671 






672 


001116 


000 


673 


001117 


000 


674 






675 






676 






677 






678 


001120 


000000 


679 






680 


001 122 


000 


681 


001123 


000 


682 


001124 


000000 


683 


001126 


000 


684 


001127 


000 


685 


001 130 


000000 


686 


001132 


000 


687 


001133 


000 


688 


001134 


000000 


689 


001136 


000300 


690 


001140 


000000 


691 


001142 


176500 


692 


001144 


000000 


693 


001146 




694 
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APT MAILBOX-ETABLE 


$ENV: .BYTE 


AENV 


SENVM: .BYTE 


AENVM 


SSWREG: .WORD 


ASWREG 


SUSWR: .WORD 


AUSWR 


SCPUOP: .WORD 


ACPUOP 



SEQ 0017 



SMAMSI : 
SMTYPI : 



.BYTE 
.BYTE 



SMADRi: .WORD 



AMAMS1 
AMTYP1 



$MAMS2: 


.BYTE 


AMAMS2 


$MTYP2: 


.BYTE 


AMTYP2 


$MADR2: 


.WORD 


AMADR2 


$MAMS3: 


.BYTE 


AMAMS3 


$MTYP3: 


.BYTE 


AMTYP3 


$MADR3: 


• WORD 


AMADR3 


$MAMS4: 


.BYTE 


AMAMS4 


$MTYP4: 


.BYTE 


AMTYP4 


$MADR4: 


.WORD 


AMADR4 


$VECT1 : 


.WORD 


AVECT1 


$VECT2: 


.WORD 


AVECT2 


$BASE: 


.WORD 


ABASE 


$DEVM: 


.WORD 


ADEVM 


SETEND: 






.MEXIT 







;; ENVIRONMENT BYTE 

; -.ENVIRONMENT MODE BITS 

; ;APT SWITCH REGISTER 

; ;USER SWITCHES 

;;CPU TYPE, OPTIONS 

BITS 15-1 1=CPU TtPE 

11/04=01 , 11/05=02.1 1/20*03, 11 /40«04. 11/45=05 
1 1/70=06, PD0=07, 0=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS, M.S. BYTE 
;:MEM. TYPE,BLK-^1 

MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC MOS=003 
; ;HIGH ADDRESS . BLK#1 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOa OF "TYPE" ABOVE 

HIGH ADDRESS. M.S. BYTE 

MEM. TYPE, BLK#2 

MEM. LAST ADDRESS. BLKA'2 

HIGH ADDRESS.M.S.BYTE 

MEM. TYPE, BLK#3 

MEM. LAST ADDRESS, BLK#3 

HIGH ADDRESS,M.S.BYTE 

MEM. TYPE, BLK#4 

MEM. LAST ADDRESS, BLK/5*4 

INTERRUPT VECT0R#1,BUS PRI0RITY#1 

INTERRUPT VECT0R#2BUS PRI0RITY#2 

BASE ADDRESS OF EQUIPMENT UNDER TEST 

DEVICE MAP 
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ERROR POINTER TABLE 



SEQ 0018 



695 






696 






697 






698 






699 






700 






701 






702 






703 






704 






705 






706 






707 






708 






709 


001146 




710 






711 


001146 




712 


001 146 


015266 


713 


001150 


021451 


714 


001152 


022204 


715 


001154 


000000 


716 






717 


001 156 


015312 


718 


001160 


021476 


719 


001162 


022214 


720 


001 164 


000000 


721 






722 


001166 


015336 


723 


001170 


021451 


724 


001172 


022204 


725 


001 1 74 


000000 


726 






727 


001176 


015403 


728 


C01200 


021451 


729 


001202 


022204 


730 


001204 


000000 


731 






732 


001206 


015425 


733 


001210 


021451 


734 


001212 


022204 


735 


001214 


000000 


736 






737 


001216 


01 5462 


738 


001220 


021523 


739 


001222 


022224 


740 


001224 


000000 


741 






742 


001226 


015506 


743 


001230 


021550 


744 


001232 


022234 


745 


001234 


000000 


745 






747 


001236 


015532 


748 


001240 


021575 


749 


001242 


022244 


750 


001244 


000000 



.SBTTL ERROR POINTER TABLE 

•-THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

"THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

►LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

"NOTEl: IF $ITEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

NN0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



EM 



EMI 
DH1 
DTI 


EM2 
DH2 
DT2 


EM3 
DH1 
DTI 


EM4 
DH1 
DTI 



EM5 
DH1 
DTI 


EM6 
DH6 
DT6 


EM7 
DH7 
DT7 


EM10 
DH10 
DT10 



;;POINTS TO THE ERROR MESSAGE 

;; POINTS TO THE DATA HEADER 

3; POINTS TO THE DATA 

;; POINTS TO THE DATA FORMAT 



;"CAN NOT ACCESS TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



) 



"CAN NOT ACCESS TBUF" 
"TEST* ERR PC TBUF" 
STESTN. SERRPC, TBUF 



;"TCSR DONE NOT CLEARED WITH TBUF FULL" 
;"TEST# ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



"TCSR DONE NOT SET" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;TCSR DONE NOT SET WITH RESET 
; "TEST* ERR PC TCSR" 
; STESTN, SERRPC, TCSR 



;"CAN NOT ACCESS RCSR" 
;"TEST* ERR PC RCSR" 
;$TESTN. SERRPC, RCSR 



;"CAN NOT ACCESS RBUF" 
; "TEST* ERR PC RBUF" 
;$TESTN, SERRPC, RBUF 



;"CAN NOT ACCESS LKS" 
;"TEST* ERR PC LKS" 
; STESTN, SERRPC, LKS 
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ERROR POINTER TABLE 



SEQ 0019 



751 






752 


001246 


015555 


753 


001250 


021451 


754 


001252 


022204 


755 


001254 


000000 


756 






757 


001256 


015620 


758 


001260 


021451 


759 


001262 


022204 


760 


001264 


000000 


761 






762 


001266 


015651 


763 


001270 


021451 


764 


001272 


022204 


765 


001274 


000000 


766 






767 


001276 


015704 


768 


001300 


021451 


769 


001302 


022204 


770 


001304 


000000 


771 






772 


001306 


015745 


773 


001310 


021451 


774 


001312 


022204 


775 


001314 


000000 


776 






777 


001316 


01 6010 


778 


001320 


021451 


779 


001322 


022204 


780 


001324 


000000 


781 






782 


00132S 


016041 


783 


001330 


021451 


784 


001332 


022204 


785 


001334 


000000 


786 






787 


001336 


016074 


788 


001340 


021451 


789 


001342 


022204 


790 


001344 


000000 


791 






792 


001346 


016135 


793 


001350 


021451 


794 


001352 


022204 


795 


001354 


000000 


796 






797 


001356 


016201 


798 


001360 


021451 


799 


001362 


022204 


800 


001364 


000000 


801 






802 


001366 


016236 


803 


001370 


021451 


804 


001372 


022204 


805 


001374 


000000 


S06 







EM11 

DH1 

DTI 



EMI 2 
DH1 
DTI 


EM13 
DH1 
DT1 


EMM 
DH1 
DTI 


EMI 5 
DH1 
DTI 


EMI 6 

DH1 

DT1 



EMI 7 
DH1 
DTI 


EM20 
DH1 
DTI 


EM21 
DH1 
DTI 


EM22 
DH1 
DTI 


EM23 
DH1 
DTI 




;"BIT0 OF TCSR NOT CLEAR AFTER RESET" 

;»TEST* ERR PC TCSR 
;$TESTN, SERRPC, TCSR 



;"CAN NOT SET BITO OF TCSR" 
;"TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"CAN NOT CLEAR BITO OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



"RESET DID NOT CLEAR BITO OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;"BIT2 OF TCSR NOT CLEAR AFTER RESET" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"CAN NOT SET BIT2 OF TCSR" 
; "TEST* ERR PC TCSR" 
jSTESTN, SERRPC, TCSR 



;"CAN NOT CLEAR BIT2 OF TCSR" 
; "TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



"RESET DID NOT CLEAR BIT2 OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 



;"BIT6 OF TCSR NOT CLEAR AFTER RESET2 
;"TEST* ERR PC TCSR" 
;$TESTN, SERRPC, TCSR 



;"XMIT INTERRUPT WITH PRIORITY T" 
; "TEST* ERR PC TCSR" 
jSTESTN. SERRPC. TCSR 



"CAN NOT SET BIT6 OF TCSR" 
"TEST* ERR PC TCSR" 
STESTN, SERRPC, TCSR 
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807 


001376 


016267 


808 


001400 


021451 


809 


001402 


022204 


810 


001404 


000000 


811 






812 


001406 


016322 


813 


001410 


021451 


814 


001412 


022204 


815 


001414 


000000 


816 






817 


001416 


016363 


818 


001420 


021523 


819 


001422 


022224 


820 


001424 


000000 


821 






822 


001426 


016426 


823 


001430 


021523 


824 


001432 


022224 


825 


001434 


000000 


826 






827 


001436 


016465 


828 


001440 


021523 


829 


001442 


022224 


830 


001444 


000000 


831 






832 


001446 


016516 


833 


001450 


021523 


834 


001452 


022224 


835 


001454 


000000 


836 






837 


001456 


01 6551 


838 


001460 


021523 


839 


001462 


022224 


840 


001464 


000000 


841 






842 


001466 


016617 


843 


001470 


021575 


844 


001472 


022244 


845 


001474 


000000 


846 






847 


001476 


016661 


848 


001500 


021575 


849 


001502 


022244 


850 


001504 


000000 


851 






852 


001506 


016717 


853 


001510 


021575 


854 


001512 


022244 


855 


001514 


000000 


856 






857 


001516 


016747 


858 


001520 


021575 


859 


001522 


022244 


860 


001524 


000000 


861 






862 


001526 


017001 
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ERROR POINTER TABLE 

EM24 
DH1 
DTI 


EM25 
DH1 
DTI 


EM26 
DH6 
DT6 


EM27 
DH6 
DT6 


EM30 

DH6 

DT6 



EM31 
DH6 
DT6 



SEQ 0020 



EM32 

DH6 

DT6 



EM33 
DH10 
DT10 


EM34 
DH10 
DT10 


EM35 
OHIO 
DT10 


EM36 
DH10 
DT10 



;''CAN NOT CLEAR BIT6 OF TCSR" 
;"TESTy^ ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



"RESET uID NOT CLEAR BIT6 OF TCSR" 
"TEST# ERR PC TCSR" 
$TESTN,$ERRPC,TCSR 



"BIT6 OF RCSR NOT CLEAR AFTER RESET" 
"TEST# ERR PC RCSR" 
$TESTN,$ERRPC,RCSR 



;"RCVR INTERRUPT WITH PRIORITY 7" 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC,RCSR 



;"CAN NOT SET BIT6 OF RCSR" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



;"CAN NOT CLEAR BIT6 OF RCSR" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"CAN NOT CLEAR BITS OF RCSR WITH RESET2 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC.RCSR 



"BIT6 OF LKS NOT CLEAR AFTER RESET" 
"TEST* ERR PC LKS" 
$TESTN,$ERRPC,LKS 



"LKS INTERRUPT WITH PRIORITY 7" 
"TEST* ERR PC LKS" 
$TESTN,$ERRPC,LKS 



"CAN NOT SET BIT6 OF LKS" 
"TEST* ERR PC LKS" 
$TESTN,$ERRPC,LKS 



"CAN NOT CLEAR BIT6 OF LKS" 
"TEST* ERR PC LKS" 
$TESTN,$ERRPC,LKS 



"RESET DID NOT CLEAR BITS OF LKS" 
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863 


001530 


021575 


864 


001532 


022244 


865 


001534 


000000 


866 






867 


001536 


017041 


868 


001540 


021621 


869 


001542 


022254 


870 


001544 


000000 


871 






872 


001546 


017067 


873 


001550 


021575 


874 


001552 


022244 


875 


001554 


000000 


876 






877 


001556 


017127 


878 


001560 


021575 


879 


001562 


022244 


880 


001564 


000000 


881 






882 


001566 


017161 


883 


001570 


021575 


884 


001572 


022244 


885 


001574 


000000 


886 






887 


001576 


017212 


888 


001600 


021575 


889 


001602 


022244 


890 


001604 


000000 


891 






892 


001606 


017246 


893 


001610 


021575 


894 


001612 


022244 


895 


001614 


000000 


896 






897 


001616 


017303 


898 


001620 


021575 


899 


001622 


022244 


900 


001624 


000000 


901 






902 


0C162S 


017303 


903 


001630 


021575 


904 


001632 


022244 


905 


001634 


000000 


906 






907 


001636 


017337 


908 


001640 


021575 


909 


001642 


022244 


910 


001644 


000000 


911 






912 


001646 


017364 


913 


001650 


021575 


914 


001652 


022244 


915 


001654 


000000 


916 






917 


001656 


017414 


918 


001660 


021575 



11 :44 PAGE 21 

ERROR POINTER TABLE 

DH10 
DT10 


EM40 
DH40 
DT40 


EM41 
DH10 
DT10 


EM42 
DH10 
DT10 



EM43 
DH10 
DT10 


EM44 
DH10 
DT10 


EM45 
DH10 
DT10 


EM46 
DH10 
DT10 


EM47 
DH10 
DT10 


EM50 
DH10 
DT10 


EM51 
DH10 
DT10 


EM52 
DH10 



SEQ 0021 



;"TEST* ERR PC LKS" 
;$TESTN,$ERRPC,LKS 



"DUAL ADDRESSING ERROR" 
"TEST* ERR PC GOOD BAD" 
$T ESTN , SERRPC , SGDADR , SBDCSR 



;"BIT7 OF LKS NOT SET AFTER RESET2 
;"TEST* ERR PC LKS" 
;$TESTN, SERRPC, LKS 



;''CAN NOT CLEAR BIT7 OF LKS" 
;"TEST* ERR PC LKS" 
;$TESTN, SERRPC, LKS 



;»BIT7 OF LKS DOES NOT SET" 
;"TEST* ERR PC LKS" 
;$TESTN. SERRPC, LKS 



"RTC INTERRUPT AT PRIORITY 7" 
"TEST* ERR PC LKS" 
STESTN, SERRPC. LKS 



;"RTC INTERRUPTS WHEN DISABLED" 
;"TEST* ERR PC LKS" 
;STESTN. SERRPC, LKS 



"RTC INTERRUPT DID NOT OCCUR" 
"TEST* ERR PC LKS" 
STESTN, SERRPC, LKS 



;"RTC INTERRUPT DID NOT OCCUR" 
;"TEST* ERR PC LKS" 
;$TESTN, SERRPC, LKS 



;"RTC DOUBLE INTERRUPT" 
; "TEST* cRR PC LKS" 
;$TESTN, SERRPC, LKS 



; "RESET DID NOT CLEAR RTC INTERRUPT" 
;"TEST* ERR PC LKS" 
;$TESTN, SERRPC, LKS 



"RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS" 
"TEST* ERR PC LKS" 
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ERROR POINTER TABLE 



SEQ 0022 



919 


001662 


022244 


920 


001664 


000000 


921 






922 


001666 


017471 


923 


001670 


021655 


924 


001672 


022266 


925 


001674 


000000 


926 






927 


001676 


017515 


928 


001700 


021451 


929 


001702 


022204 


930 


001704 


000000 


931 






932 


001706 


017653 


933 


001710 


021451 


934 


001712 


022204 


935 


001714 


000000 


936 






937 


001716 


017553 


938 


001720 


021451 


939 


001722 


022204 


940 


001724 


000000 


941 






942 


001726 


01761 1 


943 


001730 


021451 


944 


001732 


022204 


945 


001734 


000000 


946 






947 


001736 


017653 


948 


001740 


021451 


949 


001742 


022204 


950 


001744 


000000 


951 






952 


001746 


017702 


953 


001750 


021451 


954 


001752 


022204 


955 


001754 


000000 


956 






957 


001756 


017725 


958 


001760 


021451 


959 


001762 


022204 


960 


001764 


000000 


961 






962 


001766 


01 7773 


963 


001770 


021523 


964 


001772 


022224 


965 


001774 


000000 


966 






967 


001776 


020017 


968 


002000 


021523 


969 


002002 


022224 


970 


002004 


000000 


971 






972 


002006 


020043 


973 


002010 


021523 


974 


002012 


022224 



DT10 


EM53 
DH53 
DT53 



EIVI54 

DH1 

DTI 



EIVI55 

DH1 

DTI 



EM56 

DH1 

DT1 



EM57 

DH1 

DTI 



EM60 

DH1 

DTI 



EM61 
DH1 
DTI 


EM62 
DH1 
DTI 


EM63 
DH6 
DT6 


EM64 
DH6 
DT6 


EM65 

DH6 

DT6 



;$TESTN,$ERRPC,LKS 



;"TEST# ERR PC LKS CNT1 CNT2« 
;$TESTN,$ERRPC.LKS,FIRST,SECND 



;"XMIT INTERRUPTS WHEN DISABLED" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



;"XMIT DID NOT INTERRUPT" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC.TCSR 



;"XMIT INTERRUPT AT PRIORITY 7" 
;"TEST/^ ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"XMIT INTERRUPTS WITH ENABLE CLEAR" 
;"TEST# ERR PC TCSR" 
;$TESTN,vERRPC,TCSR 



;"XMIT DID NOT INTERRUPT" 
;"TEST)y ERR PC TCSR- 
;$TESTN,$ERRPC,TCSR 



;"XMIT RE-INTERRUPTED" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;" LOADING TBUF DID NOT CLEAR INTERRUPT" 
;"TEST# ERR PC TCSR" 
;$TESTN,$ERRPC,TCSR 



;"RCVR ACTIVE NOT SET" 
;"TEST# ERR PC RCSR" 
;$TESTN.$ERRPC,RCSR 



; "RECEIVER DONE NEVER SET" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"RCVR ACTIVE NOT CLEARED WTTH DONE SET2 
;«TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 
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ERROR POINTER TABLE 



SEQ 0023 



975 


002014 


000000 


976 






977 


002016 


0201 1 1 


978 


002020 


021523 


979 


002022 


022224 


980 


002024 


000000 


981 






982 


002026 


020147 


983 


002030 


021523 


984 


002032 


022224 


985 


002034 


000000 


986 






987 


002036 


020212 


988 


002040 


021523 


989 


002042 


022224 


990 


002044 


000000 


991 






992 


002046 


020257 


993 


002050 


021523 


994 


002052 


022224 


995 


002054 


000000 


996 






997 


002056 


020426 


998 


002060 


021523 


999 


002062 


022224 


1000 


002064 


000000 


1001 






1002 


002066 


020321 


1003 


002070 


021523 


1004 


002072 


022224 


1005 


002074 


000000 


1006 






1007 


002076 


020357 


1008 


002100 


021523 


1009 


002102 


022224 


1010 


002104 


000000 


1011 






1012 


002106 


020426 


1013 


002110 


021523 


1014 


002112 


022224 


1015 


002114 


000000 


1016 






1017 


002116 


020455 


1018 


002120 


021523 


1019 


002122 


022224 


1020 


002124 


000000 


1021 






1022 


002126 


020501 


1023 


002130 


021523 


1024 


002132 


022224 


1025 


002134 


000000 


1026 






1027 


002136 


020546 


1028 


002140 


021523 


1029 


002142 


022224 


1030 


002144 


000000 



EM66 

DH6 

DT6 



EM67 
DH6 
DT6 


EM70 
DH6 
DT6 


EM71 
DH6 
DT6 


EM72 
DH6 
DT6 


EM73 

DH6 

DT6 



EM74 
DH6 
DT6 


EM75 
DH6 
DT6 


EM76 
DH6 
DT6 


EM77 

DH6 

DT6 



EM100 
DH6 
DT6 




; "RESET DID NOT CLEAR RCVR DONE" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"RDR ENABLE SET DID NOT CLEAR RCVR DONE" 
;»TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



; "READING RBUF DID NOT CLEAR RCVR DONE" 
; "TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



;"RCVR INTERRUPTS WITH ENABLE CLEAR" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



;"RCVR DID NOT INTERRUPT" 
; "TEST/*! ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 

;"RCVR INTERRUPTS AT PRIORITY 7" 
',"lESTff ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



;"RCVR INTERRUPT REQUEST PASSED WITH ENABLE CLEAR" 

;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



;"RCVR DID NOT INTERRUPT" 
;"TEST/S' ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



; "RECEIVER RE-INTERRUPTED" 
; "TEST* ERR PC RCSR" 
;$TESTN,$ERRPC.RCSR 



; "READING RBUF DID NOT CLEAR INTERRUPT" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 



; "RESET DID NOT CLEAR RCVR INTERRUPT" 
;"TEST# ERR PC RCSR" 
;$TESTN,$ERRPC,RCSR 
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SEQ 0024 



1031 






1032 






1033 


002146 


020611 


1034 


002150 


021523 


1035 


002152 


022224 


1036 


002154 


000000 


1037 






1038 


002156 


020637 


1039 


002160 


021523 


1040 


002162 


022224 


1041 


002164 


000000 


1042 






1043 


002166 


020676 


1044 


002170 


021722 


1045 


0021 72 


022302 


1046 


002174 


000000 


1047 






1048 


002176 


020734 


1049 


002200 


021523 


1050 


002202 


022224 


1051 


002204 


000000 


1052 






1053 


002206 


020771 


1054 


002210 


021757 


1055 


002212 


022314 


1056 


002214 


000000 


1057 






1058 


002216 


021014 


1059 


002220 


021757 


1060 


002222 


022314 


1061 


002224 


000000 


1062 






1063 


002226 


021052 


1064 


002230 


021523 


1065 


002232 


022224 


1066 


002234 


000000 


1067 






1068 


002236 


021104 


1069 


002240 


022023 


1070 


002242 


022330 


1071 


002244 


000000 


1072 






1073 


002246 


021134 


1074 


002250 


021757 


1075 


002252 


022314 


1076 


002254 


000000 


1077 






1078 


002256 


021174 


1079 


002260 


022067 


1080 


002262 


022344 


1081 


002264 


000000 


1082 






1083 


002266 


02121 1 


1084 


002270 


021575 


1085 


002272 


022244 


1086 


002274 


000000 



EM101 
DH6 
DT6 


EIVI102 
DH6 
DT6 


EM103 
DH103 
DT103 


EMI 04 
DH6 
DT6 


EM105 
DH105 
DT105 



EM106 
DH105 
DT105 



EM107 

DH6 

DT6 



EMI 10 
DH110 
DTI 10 


EM11 1 
DH105 
DT105 


EM112 
DH112 
DTI 12 


EMI 13 
DH10 
DT10 




; '• 'OR' FLAG DID NOT SET" 
;$TESTN,$ERRPC,RCSR 



"'ERROR' NOT SET WITH 'OR' FLAG" 
"TEST# ERR PC RCSR" 
$TESTN,$ERRPC,RCSR 



"BREAK DID NOT TRANSMIT ALL ZEROES* 
"TEST# ERR PC RCSR DATA" 
$TESTN,$ERRPC,RCSR,$BDDAT 



"BREAK DID NOT SET FRAMING ERROR* 
"TEST# ERR PC RCSR" 
$TESTN,$ERRPC,RCSR 



; "DATA COMPARE ERROR" 
;"TEST# ERR PC RCSR GOOD 
; STESTN , SERRPC , RCSR , GD. BD 



;"DATA COMPARE ERROR WITH CABLE" 
;"TEST# ERR PC RCSR GOOD 
;$TESTN, SERRPC, RCSR, GD.BD 



; "TIMEOUT IN EXERCISER TEST" 
; "TEST# ERR PC RCSR" 
;$TESTN, SERRPC, RCSR 



;" INCORRECT RECEIVE COUNT 

;"TEST# ERR PC RCSR TRANS RCV" 

; STESTN .SERRPC . RCSR , XMTCNT , RCVCNT 



"DATA COMPARE ERROR IN EXERCISER" 
"TEST# ERR PC RCSR GOOD BAD" 
STESTN, SERRPC, RCSR, GD.BD 



;"TRAP CATCHER" 

;"TEST# ERR PC RCSR OLDPC TRAP ADR" 

; STESTN , SERRPC , RCSR .OLDPC , BDVECT 



;"N0 CLK INTERRUPT IN EXERCISER" 
;"TEST# ERR PC LKS" 
;$TESTN, SERRPC. LKS 
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ERROR POINTER TABLE 



SEO 0025 



1087 






1088 


002276 


021247 


1089 


002300 


021523 


1090 


002302 


022224 


1091 


002304 


000000 


1092 






1093 


002306 


021306 


1094 


002310 


021523 


1095 


002312 


022224 


1096 


002314 


000000 


1097 






1098 


002316 


021345 


1099 


002320 


021523 


1 100 


002322 


022224 


1101 


002324 


000000 


1102 






1103 


002326 


021404 


1104 


002330 


021523 


1105 


002332 


022224 


1106 


002334 


000000 


1107 






1 108 


002336 


000000 


1109 


002340 


000000 


1110 


002342 


000000 


1111 


002344 


000000 


1112 






1113 






1114 


002346 


000000 


1115 


002350 


000000 


1116 


002352 


000000 


1117 


002354 


000000 


1118 


002356 


000000 


1119 


002360 


000000 


1120 


002362 


000000 


1121 


002364 


000000 


1122 






1123 






1 124 






1125 


002366 


177560 


1126 


00237C 


177562 


1127 


002372 


177564 


1 128 


002374 


177566 


1129 


002376 


000060 


1130 


002400 


000062 


1131 


002402 


000064 


1132 


002404 


000066 


1133 






1134 






1135 


002406 


177546 


1136 


002410 


000100 


1137 


002412 


000102 


1138 






1139 


002414 


000020 


1140 


002454 


000020 


1141 






1 142 







EMI 14 
DH6 
DT6 



EMI 15 
DH6 
DT6 



EMI 16 
DH6 
DT6 



EMI 17 
DH6 
DT6 




TMP2: 


.WORD 





TMP3: 


.WORD 





-.REGISTER AND V 


EC 


RCSR: 


.WORD 





RBUF: 


.WORD 





TCSR: 


.WORD 





TBUF: 


.WORD 





RVECT: 


.WORD 





RPSW: 


• WORD 





TVECT: 


.WORD 





TPSW: 


.WORD 






" 'ERROR' NOT SET WITH 
"TEST* ERR PC RCSR" 
STESTN, SERRPC, RCSR 



;RCV ACTVIE NOT CLEAR WITH INIT 
;"TEST# ERR PC RCSR" 
;$TESTN. SERRPC, RCSR 



;RCV ACTIVE WITHOUT "START" 
;"TEST# ERR PC RCSR" 
;$TESTN, SERRPC. RCSR 



RDR ENABLE NOT CLEAR WITH RCV ACTIVE 
"TEST# ERR PC RCSR" 
STESTN. SERRPC, RCSR 



CONSLE UNDER TEST FLAG 
TEMP LOCATION FOR TABLE OFFSETS 
TEMP LOCATION FOR DEVICE COUNT 
LOCATION FOR DEVICE MAP BIT TEST MASK 



;CONSOLE REGISTER AND VECTOR ADDRESSES FOR THE DL-11W 



CRCSR: 


177560 




CRBUF: 


177562 




CTCSR: 


177564 




CTBUF: 


177566 




CRVECT: 


60 




CRPSW: 


62 




CTVECT: 


64 




CTPSW: 


66 




-.REAL TIME CLOCK REGIS 


LKS: 


.WORD 


177546 


RTCVT: 


.WORD 


100 


RTCPSW: 


.WORD 


102 


ADRTBL: 


.BLKW 


20 


VCTTBL: 


• BLKW 


20 



; ADDRESS OF RECEIVER COMMAND/STATUS REGISTER 

;ADDRESS OF RECEIVER BUFFER 

; ADDRESS OF TRANSMITTER COMMAND/STATUS REGISTER 

;ADDRESS OF TRANSMITTER BUFFER 

JRECEIVER INTERRUPT VECTOR 

♦.TRANSMITTER INTERRUPT VECTOR 
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SEQ 0026 



1 143 
1 144 
1145 
1146 
1 147 
1148 
1149 
1150 
1151 
1 152 
1153 
1 154 
1 155 
1156 
1157 
1158 
1 159 
1160 
1 161 
1162 
1 163 
1 164 
1 165 
1 166 
1167 
1168 
1 169 
1170 
1 171 
1 172 
1 173 
1174 
1175 
1 176 
1 177 
1 178 
1 179 
1 180 
1 131 
1 182 
1 183 
1 184 
1 185 
1 185 
1 187 
1 188 
1 189 
1 190 
1 191 
1192 
1 193 
1 194 
1 195 
1 196 
1197 
1198 



-.SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 



002514 
002520 
002524 
002526 
002532 
002534 
002540 
002542 
002544 



012702 
01 3700 
010001 
062701 
010022 
062700 
020001 
003773 
000207 



002414 
001142 



002546 
002552 
002556 
002562 
002566 
002572 
002576 
002602 
002604 
002612 
002620 



002526 

002632 
002634 
002640 
002542 

002645 
002654 
002662 
002670 
002676 
002704 
C02712 
002720 
002726 
002734 
002740 
002746 
002754 



002762 
002766 
002774 
003002 
003010 
003016 



005037 
005037 
005037 
005037 
005037 
005037 
005737 
001003 
012737 
012737 
012737 



001070 
001066 
001072 
002336 
001076 
001 100 
001112 

000400 
000006 
000003 



0011 12 
000004 
000006 



012706 001000 

005026 

022706 001040 

001374 

012706 001000 



012737 
012737 
01 2737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
1 1 2737 
012737 
012737 



013746 
012737 
012737 
012737 
022777 
001012 



013000 
000340 
012304 
000340 
014704 
000340 
012622 
000340 
012132 
001060 
000001 
002746 
002754 



000004 
003022 
177570 
177570 
177777 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
012124 

001015 
001006 
001010 



000004 
001040 
0010<2 
176022 



DEVADR: 


MOV 


#ADRTBL,R2 




MOV 


SBASE.RO 




MOV- 


RO.RI 




ADD 


#170, R1 


1$: 


MOV 


R0,(R2)+ 




ADD 


#10, RO 




CMP 


RO.RI 




BLE 


1$ 




RTS 


PC 



CLR 


SFATAL 


CLR 


SMSGTYP 


CLR 


$TESTN 


CLR 


CTSTFL 


CLR 


SDEVCT 


CLR 


$UNIT 


TST 


SUSWR 


BNE 


1$ 


MOV 


#400, SUSWR 


MOV 


#6,@#4 


MOV 


#3,@#6 



POINT R2 TO THE DEVICE ADDRESS TABLE 
LOAD BASE DEVICE ADDRESS IN RO 

POINT Ri TO LAST DEVICE ADDRESS 

MOVE DEVICE ADDRESS TO TABLE 

POINT RO TO NEXT DEVICE ADDRESS 

FINISHED GENERATING TABLE? 

BR, IF LAST DEVICE ADDRESS NOT LOADED 



;CLEAR ERROR NO. 

;CLEAR MESSAGE TYPE 

;CLEAR TEST NO. 

; CLEAR CONSOLE UNDER TEST FLAG 

;CLEAR DEVICE COUNT 

;CLEAR UNIT NUMBER 

;IS SUSWR LOADED? 

;BR IF YES 

;ELSE. DEFAULT TO $USWR=400 

; INITIALIZE TIMEOUT VECTORS TO TRAP 

; CATCHER ROUTINE 



) 



.SBTTL INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 



MOV 
CLR 
CMP 
BNE 
MOV 
;;INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MDVB 
MOV 
MOV 
; ;SIZE FOR A 
; -.EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



#$CMTAG,R6 
(R6) + 

#SWR,R6 ;;DONE 
.-6 

#1000, SP 
FEW VECTORS 
#$SCOPE.@#IOTVEC 
#340,(ai#I0TVEC+2 
#$ERROR,@#EMTVEC 
#340,P#EMTVEC+2 
#$TRAP,§>#TRAPVEC 



;;FIRST LOCATION TO BE CLEARED 
CLEAR MEMORY LOCATION 



; ;LOOP BACK IF NO 

;; SETUP THE STACK POINTER 



;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 

LEVEL 7 

;TRAP VECTOR FOR TRAP CALLS 
#340, @#TRAPVEC+2; LEVEL 7 
#$PWRDN-@#PWRVEC ;; POWER FAILURE VECTOR 



■■-^ 



LEVEL 7 

SETUP END-OF-PROGRAM COUNTER 

CLEAR THE ESCAPE ON ERROR ADDRESS 

ALLOW ONE ERROR PER TEST 

INITIALIZE THE LOOP ADDRESS FOR SCOPE 

SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 



#340,@#PWRVEC+2 
$ENDCT,$EOPCT 

SESCAPE 
#1 ,$ERMAX 
#. ,$LPADR 

#. .slperr 



g!#ERRVEC,-(SP) 

#64$,@#ERRVEC 

#DSWR,SWR 

#DDISP, DISPLAY 

#-1 ,@SWR 

66$ 



; ;SAVE ERROR VECTOR 

;;SET UP ERROR VECTOR 

;; SETUP FOR A HARDWARE SWICH REGISTER 

;;AND A HARDWARE DISPLAY REGISTER 

;;TRY TO REFERENCE HARDWARE SWR 

", ;BRANCH IF NO TIMEOUT TRAP OCCURRED 

;;AND THE HARDWARE SWR IS NOT « -1 



:) 
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C2DLDC.P11 19-APR-7B 



I 19-APR-7B 
11:41 



11 :44 PAGE 27 

INITIALIZE THE COMMON TAGS 



SEQ 0027 



1 199 

1200 

12C1 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

121 1 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 



003020 
003022 
003026 
003030 
003036 
003044 

003050 
003054 
003062 
003064 
003072 
003072 
003100 
003102 
003106 
0031 12 
003120 
003122 
003130 
003132 
003140 

003142 
003146 
003152 
003156 
003162 
003170 
0031 74 
003200 
003202 
003206 
003212 
003216 
003222 
003226 
003232 
003234 
003240 
003246 
003250 
003254 
003260 
003264 

003256 
003272 
003276 
003300 
003302 
003306 
003310 
003312 
003314 



000403 
012716 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 

032777 
001404 
005237 
000137 
132737 
001404 
132737 
001056 
032777 
001052 

004737 
005037 
005037 
01 3703 
01 2737 
013700 
062700 
005710 
005237 
005237 
012706 
006337 
162700 
023700 
003762 
013700 
012737 
005710 
005237 
005237 
010337 
000415 

005037 
013702 
005702 
100002 
005237 
006302 
001401 
000771 
004737 



000176 
000174 
000004 

001074 
000200 



001040 
001042 



001110 001040 
000020 175740 



002336 
004055 
000001 



001106 INIT: 



000200 001107 
000040 175700 MANL: 



002514 
002342 
001 144 
000004 
003212 
001 142 
000160 

001144 
002342 
001000 
001 144 
000010 
001142 

002366 
003260 

001144 
002342 
000004 



002342 
001144 



BR 

MOV 

RTI 

MOV 

MOV 

MOV 

CLR 
BITB 
BEO 
MOV 

BIT 

BEO 

INC 

JMP 

BITB 

BEO 

BITB 

BNE 

BIT 

BNE 

JSR 
CLR 
CLR 
MOV 
MOV 
MOV 
ADD 
TST 
INC 
INC 
MOV 
ASL 
SUB 
CMP 
BLE 
MOV 
MOV 
TST 
INC 
INC 
MOV 
BR 



APTSZD: CLR 
MOV 

TSTDVM: TST 
BPL 
INC 

1$: ASL 
BEO 
BR 

DVADT: JSR 



65$ 
#65$, (SP) 



; ; BRANCH IF NO TIMEOUT 
;;SET UP FOR TRAP RETURN 



#SWREG,SWR ;;POINT TO SOFTWARE SWR 

#DISPREG. DISPLAY 

(5P)+,@#ERRVEC ;;RESTORE ERROR VECTOR 

$PASS ;;CLEAR PASS COUNT 
#APTSIZE,$ENVM ;;TEST USER SIZE UNDER APT 

67$ ;;YES.USE NON-APT SWITCH 

#$SWREG.SWR ;;NO,USE APT SWITCH REGISTER 

#BIT4,@SWR ;TEST CLOCK ONLY? 

INIT ;BR IF NOT 

CTSTFL ;ELSE, SET CONSOLE TEST FLAG TO ENABLE CLOCK TESTS 

ID ; AND JUMP TO TYPE PROGRAM ID 

#BITO,$ENV ;CHECK IF ON APT 

MANL ;BR IF NOT APT 

#BIT7,$ENVM ;DID APT SIZE 

APTSZD ;BR. IF APT SIZED 

#BIT5,@SWR ;WAS "SDEVM" MANUALLY SET? 

APTSZD ;IF YES, SKIP SELF-SIZING 

PC, DEVADR ;GENERATE DEVICE ADDRESS TABLE 

TMP2 ;CLR TEMP LOCATION TO KEEP DEVICE COUNT 

SDEVM ;CLEAR DEVICE MAP 

@#4,R3 ;SAVE TIMEOUT VECTOR 

#4$,@#4 ;SET TIMEOUT POINTER 

$BASE,RO ; LOAD BASE ADDRESS 

#160, RO ;POINT RO TO UNIT #15 (UNIT#0=CONSOLE) 

(RO) -.CHECK FOR DEVICE EXISTANCE 

SDEVM ; INDICATE DEVICE EXISTANCE IN DEVICE MAP 

TMP2 ; INCREMENT DEVICE COUNT 

#1000, SP ;RESET STACK POINTER 

SDEVM jADJUST DEVICE MAP FOR NEXT UNIT CHECK 

#10, RO ;POINT RO TO NEXT DEVICE NUMBER 

$BASE,RO ;FINISHED SIZING? 

3$ ;BR, IF BASE ADDRESS HAS NOT BEEN CHECKED 

CRCSR.RO ;LOAD CONSOLE DEVICE ADDRESS 

#5$,(P#4 ;SET UP TIMEOUT POINTER 

(RO) ;TEST FOR CONSOLE EXISTANCE 

SDEVM -, INDICATE CONSOLE EXISTANCE IN DEVICE MAP 

TMP2 ; INCREMENT DEVICE COUNT 

R3,@#4 ;RESTQRE TIMEOUT VECTOR 

VCTADR ;BR TO GENERATE VECTOR ADDRESS TABLE 

TMP2 ;CLEAR TEMP LOCATION TO KEEP DEVICE CNT 

SDEVM, R2 ;MOVE DEVICE MAP TO R2 

R2 ;TEST MSB OF DEVICE MAP 

1$ ;BR. IF MSB IS ZERO 

TMP2 ; INCREMENT DEVICE COUNT, IF MSB=1 

R2 ;SHIFT NEXT BIT INTO MSB POSITION 

DVADT ;BR, IF NO OTHER BITS ARE SET IN SDEVM 

TSTDVM ; CONTINUE CHECKING SDEVM, IF MORE BITS SET 

PC, DEVADR ;GENERATE DEVICE ADDRESS TABLE 
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1255 








1256 








1257 


003320 


012702 


002454 


1258 


003324 


1 1 3700 


001 136 


1259 


003330 


042700 


177400 


1260 


003334 


010001 




1261 


003336 


062701 


000170 


1262 


003342 


01 0022 




1263 


003344 


062700 


000010 


1264 


003350 


020001 




1265 


003352 


003773 




1266 








1267 








1268 








1269 


003354 


01 3700 


002342 


1270 


003360 


005001 




1271 


003362 


000300 




1272 


003364 


006300 




1273 


003366 


006300 




1274 


003370 


006300 




1275 


003372 


106101 




1276 


003374 


006300 




1277 


003376 


106101 




1278 


003400 


006300 




1279 


003402 


106101 




1280 


003404 


062701 


000060 


1281 


003410 


000301 




1282 


003412 


032701 


000020 


1233 


003416 


001764 




1284 


003420 


01 0137 


022154 


1285 








1286 








1287 


003424 


052737 


000002 002344 


1288 


003432 


005037 


002340 


^289 


003436 


032737 


000001 001144 


1290 


C03444 


001001 




1291 


003446 


000414 




1292 


003450 


005237 


002336 


1293 


003454 


01 2700 


002366 


1294 


00346C 


012701 


002346 


1295 


003464 


012021 




1296 


003466 


022701 


002364 


1297 


003472 


002374 




1298 


003474 


000137 


003622 


1299 








1300 








1301 


003500 


033737 


002344 001144 


1302 


003506 


001010 




1303 


003510 


006337 


002344 


1304 


003514 


062737 


000002 002340 


1305 


003522 


005237 


001100 


1306 


003526 


000764 




1307 








1308 


003530 


005237 


001100 


1309 


003534 


006337 


002344 


1310 


003540 


013702 


002340 
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INITIALIZE THE COMMON TAGS 



^GENERATE VECTOR ADDRESS TABLE 



SEQ 0020 



VCTADR: 


MOV 


#VCTTBL.R2 




MOVB 


@#$VECT1 ,R0 




SIC 


#177400. RO 




MOV 


R0,,?1 




ADD 


#170, R1 


1$: 


MOV 


R0,(R2)+ 




ADD 


#10, RO 




CMP 


RO.RI 




BLE 


1$ 



GET LOCATION OF VECTOR TABLE 

COPY BASE VECTOR 

CLEAR BYTE SIGN EXTENSION 

POINT R1 TO LAST DEVICE VECTOR 
PUT VECTOR ADDRESS IN TABLE 
POINT RO TO NEXT VECTOR ADDRESS 
FINISHED GENERATING VECTOR TABLE? 
BR, IF LAST VECTOR IS NOT LOADED 



;MOVE DEVICE COUNT INTO DEVICE COUNT MESSAGE 





MOV 


TMP2,R0 




CLR 


R1 




SWAB 


RO 




ASL 


RO 




ASL 


RO 


SHIFT: 


ASL 


RO 




ROLB 


R1 




ASL 


RO 




ROLB 


R1 




ASL 


RO 




ROLB 


R1 




ADD 


#60, R1 




SWAB 


R1 




BIT 


#BIT4,R1 




BEQ 


SHIFT 




MOV 


R1 ,M2A 


BEGIN: 


BIS 


#BIT1 ,TMP3 




CLR 


TMPI 




BIT 


#BITO,$DEVM 




BNE 


TCONS 




BR 


TSTDEV 


TCONS: 


INC 


CTSTFL 




MOV 


#CRCSR,RO 




MOV 


#RCSR,R1 


1$: 


MOV 


(R0)+, (R1 )+ 




CMP 


#TPSW,R1 




BGE 


1$ 




JMP 


TST1 


;PREPARE ADDRESSES AND VECT 


TSTDEV: 


BIT 


TMP3,$DEVM 




BNE 


SETADR 




ASL 


TMP3 




ADD 


#2,TMP1 




INC 


$UNIT 




BR 


TSTDEV 


SETADR: 


INC 


SUNIT 




ASL 


TMP3 




MOV 


TMP1,R2 



COPY DEVICE COUNT INTO RO 

CLEAR AUXILARY REGISTER 

PUT DEVICE COUNT IN UPPER BYTE OF RO 

MOVE MSB OF COUNT INTO 

MSB OF RO 

PUT MSB OF COUNT INTO CARRY 

MOVE MSB OF COUNT INTO R1 

MOVE NEXT BIT TO CARRY 

MOVE INTO R1 

MOVE LAST BIT OF DIGIT 

INTO R1 

CONVERT DIGIT TO ASCII 

MOVE DIGIT TO UPPER BYTE 

HAVE BOTH DIGITS BEEN MOVED TO R1? 

BR, IF NOT 

MOVE DEVICE COUNT TO OUTPUT MESSAGE 



SET UP BIT MASK TO TEST SDEVM FOR DEVICES EXCEPT CONSOL 

CLEAR LOCATION TO STORE TABLE OFFSETS 

IS CONSOLE TO BE TESTED? 

BR. IF CONSOLE IS TO BE TESTED 

BR, TO TEST OTHER DEVICES 

INDICATE CONSOLE UNDER TEST 

SET UP CONSOLE DEVICE ADDRESSES 

POINT R1 TO UUT ADDRESS TABLE 

TRANSFER CONSOLE ADDRESSES 

FINISHED TRANSFER? 

BR, IF NOT 

GO TEST CONSOLE INTERFACE 



CHECK TO SEE IF DEVICE IS TO BE TESTED 

BR. IF YES 

SHIFT MASK TO CHECK NEXT SDEVM BIT 

INCREMENT TABLE INDEX 

INCREMENT UNIT NUMBER 

GO TEST NEXT BIT OF DEVICE MAP 



UPDATE UNIT NUMBER 

UPDATE DEVICE MAP TEST MASK 

MOVE TABLE OFFSET TO R2 



■•5 
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INITIALIZE THE COMMON TAGS 



1311 


003544 


062737 


000002 


1312 


003552 


016200 


002414 


1313 


003556 


012701 


002346 


1314 


003562 


01 0021 




1315 


003564 


062700 


000002 


1316 


003570 


030027 


000006 


1317 


003574 


001372 




1318 








1319 


003576 


016200 


002454 


1320 


003602 


010021 




1321 


003604 


062700 


000002 


1322 


003610 


030027 


000006 


1323 


003614 


001372 




1324 


003616 


000137 


003622 


1325 








1326 









ADD 


#2, TMPI 


MOV 


ADRTBL(R2),R0 


MOV 


#RCSR,R1 


MOV 


R0,(R1 ) + 


ADD 


#2,R0 


BIT 


R0,#6 


BNE 


ADR 


MOV 


VCTTBL(R2),R0 


MOV 


R0,(R1)+ 


ADD 


#2,R0 


BIT 


R0.#6 


BNE 


VECT 


UMP 


TST1 



UPDATE TABLE OFFSET FOR NEXT DEVICE 

PUT UUT ADDRESS INTO RO 

POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 

TRANSFER UUT ADDRESS 

POINT TO NEXT UUT REGISTER 

FINISHEu TRANSFER? 

BR, IF NOT 

PUT UUT VECTOR INTO RO 

TRANSFER UUT VECTORS TO ACTIVE TABLE AREA 

POINT TO NEXT VECTOR 

FINISHED TRANSFER? 

BR, IF NOT 

GO TEST DEVICE 
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C2DLDC.P11 19-APR-7a 11:41 INITIALIZE THE COMMON TAGS 



1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1353 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 



003622 
003624 
003630 
003636 
003642 

003644 
003546 
003652 
003654 
003656 
003660 
003660 
003664 
003666 
003670 



003674 
003676 
003702 
003710 
003714 

003716 
003720 
003724 
003726 
003730 
003732 
003732 
003736 
003740 
003742 



000004 
013703 
012737 
005777 
000412 

022626 
005737 
001002 
104001 
000404 



004737 013170 

000001 

000000 

010337 000004 



^TEST 1 



TSTi: SCOPE 
000004 

003644 000004 
176510 



TEST ABILITY TO REFERENCE TCSR 



4^**i>:iil*# 



3$: 
4$: 



MOV 


P#4,R3 


MOV 


#1$.@#4 


TST 


@TCSR 


BR 


4$ 


CMP 


(SP)+,(SP)+ 


TST 


CTSTFL 


BNE 


2$ 


ERROR 


1 


BR 


4$ 


USR 


PC.$ATY4 


HALT 




MOV 


R3,@#4 



;SAVE TIMEOUT VECTOR 

;SET UP TIMEOUT VECTOR 

; REFERENCE THE XMIT COMMAND/STATUS REG. 

; GO TO END OF TEST 

JRESTORE SP AFTER TIMEOUT 
;CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 
; REPORT ERROR TO APT & TTY 
;BR TO END OF TEST 

;;DNLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 

; RESTORE TIMEOUT VECTOR 



,t:***,tL**** 



,;<>(( «>»:«< iji 41 4i 1^ 



000004 
003716 
176440 



000004 
013703 
012737 
005777 
000412 

022626 
005737 
001002 
104002 
000404 



004737 013170 

000002 

000000 

010337 000004 



*TEST 2 

TST2: SCOPE 
MOV 
MOV 
TST 
BR 



TEST ABILITY TO REFERENCE TBUF 



1$: 



3$: 

4$: 



CMP 

TST 

BNE 

ERROR 

BR 

JSR 
2 

HALT 
MOV 



®#4,R3 

)S'1$.@#4 

@TBUF 

4$ 

(SP)+,(SP)+ 

CTSTFL 

2$ 

2 

4$ 

PC,$ATY4 



SAVE TIMEOUT VECTOR 
SET UP TIMEOUT VECTOR 
REFERENCE THE XMIT BUFFER 
GO TO END OF TEST 

RESTORE SP AFTER TIMEOUT 
CHECK IF DEVICE IS CONSOLE 
IF YES, SKIP ERROR TYPEOUT 
REPORT ERROR TO APT & TTY 
BR TO END OF TEST 

; ;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 

; RESTORE TIMEOUT VECTOR 
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C2DLDC.P11 19-APR-78 11:41 T2 TEST ABILITY TO REFERENCE TBUF 



SEQ 0031 



1370 








1371 








1372 








1373 








1374 








1375 


003746 


000004 




1376 


003750 


005077 


176400 


1377 


003754 


105777 


176372 


1378 


003760 


100016 




1379 








1380 








1381 


003762 


005077 


176366 


1382 


003766 


105777 


176360 


1383 


003772 


100011 




1384 








1385 


003774 


005737 


002336 


1386 


004000 


001002 




1387 


004002 


104003 




1388 


004004 


000404 




1389 


004006 






1390 


004006 


004737 


013170 


1391 


004012 


000003 




1392 


004014 


000000 




1393 


004016 


005000 




1394 


004020 


105777 


176326 


1395 


004024 


100414 




1396 


004026 


005200 




1397 


004030 


001373 




1398 








1399 


004032 


005737 


002336 


1400 


004036 


001002 




1401 


004040 


104004 




1402 


004042 


000405 




1403 


004044 






1404 


004044 


004737 


013170 


1405 


004050 


000004 




1406 


004052 


000000 




1407 


004054 


000424 




1408 








1409 








1410 


004056 


023737 


000042 


141 1 


004064 


001412 




1412 


004066 


005737 


001074 


1413 


004072 


001007 




1414 


004074 


005737 


001076 


1415 


004100 


001004 




1416 


004102 


104401 




1417 


004104 


022140 




1418 


004106 


104401 




1419 


0041 10 


022152 




1420 


004112 


032777 


000020 


1421 


004120 


001402 




1422 


004122 


000137 


005056 



2$: 
3$: 
4$: 



000046 id: 



TEST THAT TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 



;LOAD XBUF 

; CHECK DONE 

;BR IF CLEAR 

;FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 

; FIRST TEST TO FAIL 

;FILL DOUBLE BUFFER 

; CHECK DONE 

;BR IF CLEAR 

;CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 
;DONE NOT CLEARED WITH TBUF FULL 
;BR TO END OF TEST 

;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 
;TCSR "DONE" NOT CLEARED WITH TBUF FULL 
;CLEAR TIMER 
JCHECK FOR XMIT DONE 
;IF DONE SETS, BR TO END OF TEST 
; INCREMENT TIMER 
;BR IF TIMER NOT DONE 

JCHECK IF DEVICE IS CONSOLE 

;TCSR "DONE" DOES NOT SET 
;BR TO END OF TEST 

;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 

;BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 

; BECAUSE OF THIS FAILURE 

;UNDER ACT11? 

;IF YES, SKIP IDENT. TYPEOUT 

;IS THIS THE FIRST PASS? 

;IF NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEQU 

;IS THIS THE FIRST SUBPASS? 

;IF NOT, BRTO NEXT TEST 

;TYPE PROGRAM INOENTIFICATION 

;TYPE NUMBER OF DEVICES UNDER TEST 

;CLOCK TEST ONLY? 

;BR IF NOT 

;ELSE. vJUMP TO TEST CLOCK 



SCOPE 




CLR 


@TBUF 


TSTB 


@TCSR 


BPL 


3$ 


CLR 


@TBUF 


TSTB 


PTCSR 


BPL 


3$ 


TST 


CTSTFL 


BNE 


1$ 


ERROR 


3 


BR 


3$ 


USR 


PC,$ATY4 


3 




HALT 




CLR 


RO 


TSTB 


PTCSR 


BMI 


ID 


INC 


RO 


BNE 


4$ 


TST 


CTSTFL 


BNE 


5$ 


ERROR 


4 


BR 


ID 


USR 


PC,$ATY4 


4 




HALT 




BR 


TST4 


CMP 


@/5'42,@#46 


BEO 


6$ 


TST 


$PASS 


BNE 


6$ 


TST 


SDEVCT 


BNE 


6$ 


TYPE 




Ml 




TYPE 




M2 




BIT 


#BIT4,®SWR 


BEO 


TST4 


UMP 


TCLOCK 



I 
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TEST THAT TCSR BIT7(D0NE) CLEARS WHEN XBUF IS LOADED 



1423 
1424 








1425 








1426 








1427 








1428 


004126 


000004 




1429 


004130 


005077 


176220 


1430 


004134 


105777 


176212 


1431 


004140 


100375 




1432 


004142 


005077 


176206 


1433 


004146 


000240 




1434 


004150 


000005 




1435 


004152 


105777 


176174 


1436 


004156 


100401 




1437 








1438 


004160 


104005 




1439 








1440 








1441 








1442 








1443 








1444 








1445 


004162 


000004 




1446 


004164 


013703 


000004 


1447 


004170 


012737 


004204 


1448 


004176 


005777 


176144 


1449 


004202 


000402 




1450 








1451 


004204 


022626 




1452 


004206 


104006 




1453 


004210 


010337 


000004 



*TEST 4 TEST THAT TCSR "DONE" SETS WITH RESET 
TST4: SCOPE 



1$: 



CLR 


eiTBUF 


TSTB 


©TCSR 


BPL 


1$ 


CLR 


@TBUF 


NOP 




RESET 




TSTB 


©TCSR 


BMI 


TST5 



;LOAD TRANSMIT BUFFER 
;WAIT FOR DONE 

;LOAD SECOND BUFFER 

JCLEAR DONE WITH RESET 

; CHECK FOR DONE SET 

;BR TO NEXT TEST IF DONE SET 

;TCSR "DONE" DOES NOT SET WITH RESET 



«4i«««*>)i« 



m******ti'************tii******'if ************ 
5 TEST ABILITY TO ACCESS RCSR 
n,m,^*t<HiitL***iii**rif****ii,*****ii^if**mn,***w:****** 
SCOPE 

MOV @#4,R3 ;SAVE TIMEOUT VECTOR 

MOV #1$,®#4 ;SET UP TIMEOUT VECTOR 

TST ©RCSR ; ACCESS RCSR 

BR 2$ ;BR TO END OF TEST 



******:,lf,f**'i"*«*^^ 



CMP (SP) + ,(SP)-f 

ERROR 6 

MOV R3,9#A 



; RESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS RCSR 
; RESTORE TIMEOUT VECTOR 
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TEST ABILITY TO ACCESS RCSR 



SEQ 0033 



1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 



004214 
004216 
004222 
004230 
004234 



000004 
013703 
012737 
005777 
000402 



000004 
004236 
176114 



004236 022626 
004240 104007 
004242 010337 000004 



« 4, 41 * >X * « « 4> »> * * * 



;*TEST 6 



TEST ABILITY TO ACCESS RBUF 

**if**m*,lf4:Mfrti*****il,*m*Jt'******** 



SCOPE 

MOV 

MOV 

TST 

BR 



@#4.R3 
<yi$.@#4 
@RBUF 
2$ 

(SP)+.(SP)+ 



CMP 

ERROR 

MOV R3,@#4 



;SAVE TIMEOUT VECTOR 
;SET UP TIMEOUT VECTOR 
; ACCESS RBUF 
;BR TO END OF TEST 

; RESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS RBUF 
{RESTORE TIMEOUT VECTOR 



^■1 
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TEST ABILITY TO ACCESS RBUF 



SEQ 0034 



1472 
t473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 



004246 
004250 
004256 
004260 
004262 
004270 
004272 
004276 
004300 
004302 
004304 
004304 
004310 
004312 

004314 
004322 
004330 



004334 
004342 
004350 
004352 
004356 
C04360 
004362 
004364 
004364 
004370 
004372 

004374 
004402 
004404 
004412 
004414 
004422 



TEST THAT BIT0(BREAK BIT) CAN BE SET & CLEARED & RESET 



41 « « * ^ « >i> li « 



000004 
032777 
001545 
000005 
032777 
00141 1 
005737 
001002 
104011 
000404 

004737 
00001 1 
000000 

052777 
032777 
001001 



000400 174562 

000001 176062 
002336 



004332 104012 



042777 
032777 
001411 
005737 
001002 
104013 
000404 

004737 
000013 
000000 

052777 
000005 
032777 
001467 
042777 
104014 



000001 
000001 



000001 
000001 



176030 
176022 



176010 
176002 



000001 
000001 
000001 



175750 
175740 
175730 



6$: 
7$: 



SCOPE 




BIT 


#BIT8,i>SWR 


BEO 


TST11 


RESET 




BIT 


#BIT0,@TCSR 


BEO 


3$ 


TST 


CTSTFL 


BNE 


1$ 


ERROR 


11 


BR 


3$ 


dSR 


PC,$ATY4 



BIS 


#BIT0,@TCSK 


BIT 


#BITO.®>TCSR 


BNE 


4$ 



BIC 


#BITO,@TCSR 


BIT 


#BITO,@TCSR 


BEQ 


7$ 


TST 


CTSTFL 


BNE 


5$ 


ERROR 


13 


BR 


7$ 


JSR 


PC.$ATY4 


13 




HALT 




BIS 


#BITO,@TCSR 


RESET 




BIT 


(^BITO,®TCSR 


BEQ 


TST11 


BIC 


#BITO,®TCSR 


ERROR 


14 



IS BREAK FUNCTION ENABLED? 
BR TO NEXT TEST, IF NOT 
CLEAR EVERYTHING 
CHECK BITO OF TCSR CLEAR 
BR IF CLEAR 



;BITO WAS NOT CLEAR AFTER RESET 



:,) 



;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 



;SET BITO IN TCSR 
;TEST BITO OF TCSR 
;BR IF SET 

;BIT0 OF TCSR WILL NOT SET 



JCLEAR BITO OF TCSR 
;TEST BITO OF TCSR 



;BITO OF TCSR WILL NOT CLEAR 



;;ONLY REPORT A FATAL ERROR 

;;THE ERROR NUMBER (FROM APT LIST) 



SET BITO IN TCSR 

CLEAR BITO WITH RESET 

TEST BITO CLEAR 

BR IF CLEAR 

CLEAR BITO, TO PRINT ERROR 

RESET DID NOT CLEAR BITO OF TCSR 
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TEST THAT BITOCBREAK BIT) CAN BE SET & CLEARED & RESET 



SEQ 0035 



1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1523 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 



004452 
004452 
004456 
004460 

004462 
004470 
004476 



004502 
004510 
004516 

004520 
004524 
004526 
004530 
004532 
004532 
004536 
004540 

004542 
004550 
004552 
004560 

004562 

004570 



004737 013170 

000015 

000000 

052777 000004 
032777 000004 
001001 



004500 104016 



042777 000004 
032777 000004 
001411 

005737 002336 
001002 
104017 
000404 

004737 013170 

000017 

000000 

052777 000004 

000005 

032777 000004 

001461 



004424 000004 

004426 000005 

004430 032777 000004 

004436 001411 

004440 005737 002336 

004444 001002 

004446 104015 

004450 000404 





;*TEST 


10 


TEST THAT B 










TSTIO: 


SCOPE 
RESET 




175714 




BIT 


#BIT2,@'TCSR 






BEO 


3$ 






TST 


CTSTFL 






BNE 


1$ 






ERROR 


15 






BR 


3$ 




1$: 










JSR 


PC,$ATY4 






15 






2$: 


HALT 




175662 


3$: 


BIS 


#BIT2.@TCSR 


175654 




BIT 


#BIT2,@TCSR 






BNE 


4$ 



175642 4$: 
175634 



5$: 

6$: 
175602 7$: 
175S72 



TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 



;CLEAR EVERYTHING 

;TEST FOR BIT2 OF TCSR CLEAR 

;BR IF CLEAR 



042777 
104020 



000004 175S62 



BIC 
BIT 
BEO 

TST 
BNE 
ERROR 



HALT 

BIS 
RESET 
BIT 
BEO 

BIC 
ERROR 



)^BIT2,@TCSR 
#BIT2,®TCSR 
7$ 

CTSTFL 
5$ 
17 
7$ 



#BIT2,@TCSR 



#BIT2,i»TCSR 
TST12 



#BIT2,i>TCSR 
20 



;CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 
;BIT2 OF TCSR NOT CLEAR AFTER RESET 



;ONLY REPORT A FATAL ERROR 

;THE ERROR NUMBER (FROM APT LIST) 



;SET BIT2 OF TCSR 
JTEST FOR BIT2 SET 
;BR IF SET 

;BIT2 OF TCSR WILL NOT SET 

;CLEAR BIT2 OF TCSR 
;TEST BIT2 CLEAR 
;BR IF CLEAR 

;CHECK IF DEVICE IS CONSOLE 
;IF YES, SKIP ERROR TYPEOUT 



;;ONLY REPORT A FATAL ERROR 
;;THE ERROR NUMBER (FROM APT LIST) 
;BITO OF TCSR WILL NOT CLEAR 

;SET BIT2 OF TCSR 

jCLEAR BIT2 WITH RESET 

;TEST FOR BIT2 CLEAR 

;IF CLEAR. GO TO NEXT TEST 

;CLEAR BIT2. TO PRINT ERROR 

; RESET DID NOT CLEAR BITS OF TCSR 



.MAIN. MACYIt 30A(1052) 19-APR-78 11:44 PAGE 36 

C2DLDC.P11 19-APR-78 11:41 T10 TEST THAT BIT2(MAINT. BIT) CAN BE SET & RESET 



T6(XMIT INT EN) CAN BE SET & RESET 



SEQ 0036 



1563 
1564 
















1565 














1566 










•♦TEST 


1 1 


TEST THAT BI 


1567 










J ;its>ti«>|c«iK4:4ilf<*itt>|i>ti 




1568 


004572 


000004 






TSTIi: 


SCOPE 




1569 


004574 


000005 








RESET 




1570 


004576 


017703 


175560 






MOV 


@TVECT,R3 


1571 


004602 


012777 


004632 


175552 




MOV 


#1$,@TVECT 


1572 


004610 


004737 


012242 






JSR 


PC.WRPSW 


1573 


004614 


000340 










.WORD 340 


1574 


004616 


032777 


000100 


17552b 




BIT 


#BIT6,@TCSR 


1575 


004624 


001404 








BEO 


2$ 


1576 


004626 


104021 








ERROR 


21 


1577 
















1578 


004630 


000402 








BR 


2$ 


1579 
















1580 


004632 


022626 






1$: 


CMP 


(SP)+,(SP)+ 


1581 


004634 


104022 








ERROR 


22 


1582 
















1583 
















1584 


004636 


052777 


000100 


175506 


2$: 


BIS 


)^BIT6,@i"CSR 


1585 


004644 


032777 


000100 


175500 




BIT 


i^BITe.PTCSR 


1586 


004652 


001001 








BNE 


3$ 


1587 
















1588 


004654 


104023 








ERROR 


23 


1589 
















1590 
















1591 


004656 


042777 


000100 


175466 


3$: 


BIC 


#BIT6,@TCSR 


1592 


004664 


032777 


000100 


175460 




BIT 


#BIT6,@TCSR 


1593 


004672 


001401 








BEO 


4$ 


1594 


004674 


104024 








ERROR 


24 


1595 
















1596 
















1597 


004676 


052777 


000100 


175446 


4$: 


BIS 


#BIT6,®TCSR 


1598 


004704 


000005 








RESET 




1599 


004706 


032777 


000100 


175436 




BIT 


#BIT6,(5>TCSR 


1600 


004714 


001401 








BEO 


5$ 


1601 
















1602 


004716 


104025 








ERROR 


25 


1603 
















1604 


004720 


010377 


175436 




5$: 


MOV 


R3,®TVECT 



;CLEAR EVERYTHING 
;SAVE XMIT VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSW TO PRI0RITY=7 

;TEST BIT6 OF TCSR 
;BR IF ZERO 

•,BIT6 IN TCSR NOT CLEAR AFTER RESET 

;RESTORE SP AFTER INTERRUPT 

;XMIT INTERRUPT OCCURRED PRIQa? 

;SET BIT6 OF TCSR 
;TEST BIT6 OF TCSR 
;BR, IF SET 



;CANNOT SET BIT6 OF TCSR 

;CLEAR BIT6 OF TCSR 
ITEST BIT6 OF TCSR 
;BR IF CLEAR 

jCANNOT CLEAR BIT6 OF TCSR 

;SET BIT6 OF TCSR 
JCLEAR BIT6 WITH RESET 
;TEST BIT6 OF TCSR 
;BR IF CLEAR 



;CANNOT CLEAR BIT6 OF TCSR WITH RESET 
; RESTORE XMIT VECTOR 
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Til TEST THAT BIT6(XMIT INT EN) CAN BE SET & RESET 



SEQ 0037 



1605 
















1606 
















1607 










; ..Xif^ciX^itcKtiK^itiHiKiit 


*********^i>ti*:¥** 


1608 










;*TEST 


12 


TEST THAT BIT6 


1609 












tf*^f7lf^:****7lfm**** 


1610 


004724 


000004 






TST12: 


SCOPE 




161 1 


004726 


000005 








RESET 




1612 


004730 


017703 


175422 






MOV 


@RVECT.R3 


1613 


004734 


012777 


004764 


175414 




MOV 


#1$,@RVECT 


1614 


004742 


004737 


012242 






JSR 


PC.WRPSW 


1615 


004746 


000340 










.WORD 340 


1616 


004750 


032777 


000100 


175370 




BIT 


#BIT6,@RCSR 


1617 


004756 


001404 








BEO 


2$ 


1618 


004760 


104026 








ERROR 


26 


1619 
















1620 


004762 


000402 








BR 


2$ 


1621 
















1622 


004764 


022626 






1$: 


CMP 


(SP)+,(SP)+ 


1623 


004766 


104027 








ERROR 


27 


1624 
















1625 
















1626 


004770 


052777 


000100 


175350 


2$: 


BIS 


#BIT6,@RCSR 


1627 


004776 


032777 


000100 


175342 




BIT 


#BIT6,@RCSR 


1628 


005004 


001001 








BNE 


3$ 


1629 
















1630 


005006 


104030 








ERROR 


30 


1631 
















1632 
















1633 


005010 


042777 


000100 


175330 


3$: 


BIC 


)!^BIT6,@RCSR 


1634 


005016 


032777 


000100 


175322 




BIT 


#BIT6,@RCSR 


1635 


005024 


001401 








BEO 


4$ 


1636 
















1637 


005026 


104031 








ERROR 


31 


1638 
















1639 
















1640 


005030 


052777 


000100 


175310 


4$: 


BIS 


#BIT6,@RCSR 


1641 


005036 


000005 








RESET 




1642 


005040 


032777 


000100 


175300 




BIT 


#BIT6,i>RCSR 


1643 


005046 


001401 








BEQ 


5$ 


1644 
















1645 


005050 


104032 








ERROR 


32 


1646 
















1647 


005052 


010377 


175300 




5$: 


MOV 


R3,®RVECT 


1648 

















OF RCSR CAN BE SET & RESET 

;CLEAR EVERYTHING 

;SAVE RECEIVE VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 

;SET PSW TO PRI0RITY=7 

;TEST BIT6 OF RCSR 

;BIT6 OF RCSR NOT CLEAR AFTER RESET 

;RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPT WITH PRIORITYs? 

;SET BIT6 OF RCSR 
;TEST BIT6 OF RCSR 
;BR. IF SET 

jCANNOT SET BIT6 OF RCSR 

jCLEAR BIT6 OF RCSR 
;TEST BIT6 OF RCSR 
;BR, IF CLEAR 

;CANNOT CLEAR BIT6 OF RCSR 

;SET BIT6 OF RCSR 

-.CLEAR BIT60F RCSR WITH RESET 

;TEST BIT6 OF RCSR 

;BR, IF CLEAR 



; CANNOT CLEAR BIT6 OF RCSR WITH RESET 
; RESTORE RECEIVE VECTOR 
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T12 TEST THAT BIT6 OF RCSR CAN BE SET & RESET 



SEQ 0038 



1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1577 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
16B7 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 



005056 012737 000012 001002 TCLOCK: MOV 



005064 
005066 
005072 
005074 
005102 
005104 
005110 
005116 
005122 

005124 
005126 



005134 
005136 
005142 
005144 
005152 
005154 
005156 
005162 
005170 
005174 
005176 
005204 
005206 



005212 
005214 



005216 
005224 
005232 



000004 
005737 
001420 
032777 
001014 
013703 
012737 
005777 
000402 

022626 
104010 



002336 

000100 

000004 
005124 
175264 



173736 
000004 



*TEST 13- 

• i)i ■^ <# Iti # r* * * * Hf ^t >tl 

TST13: SCOPE 
TST 
BEQ 
BIT 
BNE 
MOV 
MOV 
TST 
BR 

1$: CMP 

ERROR 



#12,$TSTNM ;ADdUST TEST NUMBER TO (NEXT TEST - 1) 

TEST ABILITY TO ACCESS LKS 



005130 010337 000004 



2$: 



MOV 



000004 
005737 
001460 
032777 
001054 
000005 
017703 
012777 
004737 
000340 
032777 
001404 
104033 



000100 173666 



175226 

005212 175220 

012242 

000100 175202 



005210 000402 



022626 
104034 



052777 000100 
032777 000100 
001001 



-I-TEST 14 

; Id «««!»«*« >K *« 1«! 

TST14: SCOPE 
TST 
BEO 
BIT 
BNE 
RESET 
MOV 
MOV 
JSR 

BIT 
BEQ 
ERROR 



CMP 
ERROR 



005234 104035 



005236 
005244 
005252 
005254 



042777 
032777 
001401 
104036 



000100 
000100 



175162 2$: 
175154 



175142 3$: 
175134 



005256 052777 000100 175122 4$: 



BIS 
BIT 
BNE 



BIC 
BIT 
BEQ 
ERROR 

BIS 



CTSTFL 

TST14 

*BIT6,®SWR 

TST14 

@#4,R3 

*1$,@(S'4 

@LKS 

2$ 

(SP)+,(SP)+ 
10 



TEST THAT BIT6 

CTSTFL 
TST15 

#BIT6,@SWR 
TST15 

fRTCVT.RS 

#1$,@RTCVT 

PC.WRPSW 

.WORD 340 

#BIT6,®LKS 

2$ 

33 



;IS CONSOLE UNDER TEST? 

; IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

;IF YES, SKIP THIS TEST 

;SAVE TIMEOUT VECTOR 

;SET UP TIMEOUT VECTOR 

; ACCESS LKS 

;N0 TIMEOUT - BR TO END OF TEST 

{RESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS LKS 

; RESTORE TIMEOUT VECTOR 



>d 4< sit $ « « St! it> If sj) 



2$ 



(SP)+,(SP)+ 
34 



^BITB.iiLKS 
#BIT6,@LKS 
3$ 



#BIT6,PLKS 

#BIT6,#LKS 

4$ 

36 

#BIT6,®LKS 



«ld>l>stts|llKi|(>tc)t>«*stlstis|< *««*>«< 

OF LKS CAN BE SET & RESET 



;IS CONSOLE UNDER TEST? 

;IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

; IF YES, SKIP THIS TEST 

;SAVE LINE CLOCK VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 

;SET PSW TO PRIORITY 7 

jTEST BIT6 OF LKS 



;BIT6 OF LKS NOT CLEAR AFTER RESET 

; RESTORE SP AFTER INTERRUPT 

;LKS INTERRUPT WITH PRI0RITY«7 

;SET BIT6 OF LKS 
;TEST BIT6 OF LKS 
;BR IF SET 

; CANNOT SET BIT6 OF LKS 

jCLEAR BIT6 OF LKS 
;TEST BIT6 OF LK 



;CANNOT CLEAR BIT6 OF LKS 
;SET BIT6 OF LKS 
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1705 005264 000005 

1706 005266 032777 000100 

1707 005274 001401 
1708 

1709 005276 104037 

1710 

1711 005300 010377 175104 



T14 



TEST THAT BIT6 OF LKS CAN BE SET & RESET 



175112 




RESET 

BIT 

BEO 


#BIT6,®LKS 
5$ 






ERROR 


37 




5$: 


MOV 


R3,@RTCVT 



;CLEAR BIT6 OF LKS WITH RESET 
;TEST BIT6 OF LKS 
;BR IF CLEAR 



;CANNOT CLEAR BIT6 OF LKS WITH RESET 
; RESTORE LINE CLOCK VECTOR 
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T14 TEST THAT BITS OF LKS CAN BE SET & RESET 



SEQ 0040 



:::) 



1712 
















1713 
















1714 










;;****.( 






1715 










;*TEST 


15 


TEST FOR DUAL / 


1716 










J J »«i«iiii4 






1717 


005304 


000004 






TST15: 


SCOPE 




1718 


005306 


013703 


000004 






MOV 


f>#4,R3 


1719 


005312 


013704 


000006 






MOV 


@#6,R4 


1720 


005316 


012737 


005450 


000004 




MOV 


#4$,@*4 


1721 


005324 


012737 


000340 


000006 




MOV 


#340, ##6 


1722 


005332 


000005 








RESET 




1723 


005334 


01 2700 


000002 






MOV 


#BIT1 ,R0 


1724 


005340 


032777 


000020 


173472 




BIT 


#BIT4,@SWR 


1725 


005346 


001404 








BEQ 


1$ 


1726 


005350 


013737 


002406 


001020 




MOV 


LKS.SGDADR 


1727 


005356 


000403 








BR 


2$ 


1728 


005360 


013737 


002346 


001020 


1$: 


MOV 


RCSR.SGDADR 


1729 


005366 


013737 


001020 


001022 


2$: 


MOV 


SGDADR.SBDADR 


1730 


005374 


040037 


001022 






BIC 


RO.SBDADR 


1731 


005400 


023737 


001020 


001022 




CMP 


$GDADR,$8DADR 


1732 


005406 


001002 








BNE 


3$ 


1733 


005410 


050037 


001022 






BIS 


RO.SBDADR 


1734 


005414 


017737 


173402 


001024 


3$: 


MOV 


@$BDADR,$GDDAT 


1735 


005422 


052777 


000100 


173372 




BIS 


#BIT6,@$BDADR 


1736 


005430 


032777 


000100 


173362 




BIT 


#BIT6,®$GDADR 


1737 


005436 


001011 








BNE 


6$ 


1738 


005440 


013777 


001024 


173354 




MOV 


$GDDAT,®$BDADR 


1739 


005446 


000401 








BR 


5$ 


1740 


005450 


022626 






4$: 


CMP 


(SP)+,(SP)+ 


1741 


005452 


006300 






5$: 


ASL 


RO 


1742 


005454 


105700 








TSTB 


RO 


1743 


005456 


100343 








BPL 


2$ 


1744 


005460 


000401 








BR 


7$ 


1745 
















1746 


005462 


104040 






6$: 


ERROR 


40 


1747 
















1748 
















1749 
















1750 


005464 


010337 


000004 




7$: 


MOV 


R3,®#4 


1751 


005470 


010437 


000006 






MOV 


RA,^*f6 



SAVE TIMEOUT VECTOR 

SAVE TIMEOUT PSW 

SET UP TIMEOUT VECTOR 

KEEP PRI0=:7 

CLEAR EVERYTHING 

SET UP BIT MASK 

CLOCK TEST ONLY? 

BR IF NOT 

ELSE, MOVE GOOD LKS ADDRESS INTO SGDADR 

MOVE GOOD RCSR ADDRESS INTO SGDADR 

MOVE GOOD ADDRESS INTO TEST ADDRESS LOCATION 

CREATE BAD ADDRESS BY COMPLEMENTING ONE BIT 

ARE ADDRESSES IDENTICAL? 

IF NOT, TEST THIS ADDRESS 

ELSE. BIT SET THIS BIT POSITION TO GENERATE BAD ADDRESS 

SAVE CONTENTS OF BAD ADDRESS IF IT EXISTS 

SET BIT6 USING BAD ADDRESS 

CHECK TO SEE IF GOOD ADDRESS CONTAINS BITS 

BR IF S~.T —~> ERROR 

RESTORE ANY MEMORY LOCATION THAT MAS ALTERED 

BR TO CONTINUE TEST 

RESTORE SP AFTER TIMEOUT 

SHIFT BIT MASK TO NEXT POSITION 

COMPLEMENTED ALL BITS FROM 1 - 7? 

BR, IF NOT. 

BR TO NEXT TEST 

DUAL ADDRESSING ERROR 
SBDADR = DUAL ADDRESS 
SGDADR = GOOD ADDRESS 

RESTORE TIMEOUT VECTOR 
RESTORE TIMEOUT PSW 
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T15 TEST FOR DUAL ADDRESSING OF REGISTERS 



1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 



005474 
005476 
005502 
005504 
005512 
005514 
005516 
005522 



005526 
005534 
005542 
005544 
C05552 
005560 



005564 
005566 
005572 
005574 
005576 



000004 

005737 002336 

001437 

032777 

001033 

000005 

105777 

100401 



005524 104041 



042777 
032777 
001410 
042777 
032777 
001401 



000200 
000200 



000200 
000200 



005562 104042 



005000 
105777 
100403 
005200 
001373 



000100 173326 



174652 2$: 
174644 



174634 
174626 



3$: 


CLR 


RO 


CONT: 


TSTB 


@LKS 




BMI 


TST17 




INC 


RO 




BNE 


CONT 



005600 104043 



ERROR 43 



TEST THAT BIT7 OF LKS SETS & CAN BE CLEARED 



;IS CONSOLE UNDER TEST? 

;IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

■.IF YES, SKIP THIS TEST 

;CLEAR EVERYTHING & SET BIT7 OF LKS 

;TEST FOR BIT7 OF LKS 

;BR IF SET 

;BIT7 OF LKS DID NOT SET WITH RESET 

;CLEAR BIT7 OF LKS 
;TEST BIT7 OF LKS 

;TRY ONE MORE TIME BECAUSE THE CLOCK 

; MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR 



;CAN NOT CLEAR BIT7 OF LKS 

;CLEAR TIMER 

;TEST FOR BIT7 OF LKS 

;BR, IF SET 

; INCREMENT TIMER 

;CONTINUE UNTIL TIME EXPIRES 

•,BIT7 OF LKS DOES NOT SET 



TEST 


16 


TEST THAT 


■^ittit,^,itf******* 




T16: 


SCOPE 






TST 


CTSTFL 




BEO 


TST17 




BIT 


#BIT6,@SWR 




BNE 


TST17 




RESET 






TSTB 


@LKS 




BMI 


2$ 




ERROR 


41 




BIC 


#BIT7,@LKS 




BIT 


#BIT7,®LKS 




BEO 


3$ 




BIC 


#BIT7,@LKS 




BIT 


#BIT7,@LKS 




BEO 


3$ 



000100 173220 
012242 



006000 
000200 
000100 
174414 



005776 104046 



022626 

QAllll 000100 

010377 174374 

010477 174372 



174542 
174536 
174524 
174516 
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1785 
1786 
1787 
1788 

1789 005602 000004 

1790 005604 005737 

1791 005610 001503 

1792 005612 032777 

1793 005620 001077 

1794 005622 004737 

1795 005626 000340 

1796 005630 017703 

1797 005634 017704 

1798 005640 012777 

1799 005646 012777 

1800 005654 042777 

1801 005652 052777 

1802 005670 105777 

1803 005674 100375 

1804 005576 000240 

1805 005700 000402 
1806 

1807 005702 022626 

1808 005704 104044 
1809 

1810 005706 005077 

1811 005712 012777 

1812 005720 004737 

1813 005724 000240 

1814 005726 105777 

1815 005732 100375 

1816 005734 000240 

1817 005736 000402 
1818 

1819 005740 022626 

1820 005742 104045 
1821 

1822 005744 012777 

1823 005752 042777 

1824 005760 052777 

1825 005766 105777 
1825 005772 100375 
1827 005774 000240 
1828 

1829 
1830 

1831 006000 

1832 006002 

1833 006010 

1834 006014 
1835 
1836 
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116 TEST THAT BIT7 OF IKS SETS ^ CAN BE CLEARED 



SEQ 004S 



174554 
174552 
005702 
000340 
000200 
000100 
174512 



174474 
005740 
012242 



174436 
174426 
174420 



j-s-TEST 17 

TST17: SCOPE 
TST 
BEO 
BIT 
BNE 
JSR 



MOV 

MOV 

MOV 

MOV 

BIC 

BIS 

TSTB 

BPL 

NOP 

BR 

CMP 
ERROR 

CLR 
MOV 
JSR 

TSTB 
BPL 
NOP 
BR 

CMP 
ERROR 

MOV 

BIC 

BIS 

TSTB 

BPL 

NOP 

ERROR 

CMP 
BIC 
MOV 
MOV 



TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 

************************************************** 



4$: 
5$: 



CTSTFL 

TST20 

#BIT6,@SWR 

TST20 

PC.WRPSW 

.WORD 340 

f>RTCVT,R3 

IPRTCPSW,R4 

#2$,@RTCVT 

#340,@RTCPSW 

(yBIT7,@LKS 

#BIT6,@LKS 

®LKS 

1$ 

3$ 

(SP)+,(SP)+ 



IS CONSOLE UNDER TEST? 

IF NOT, SKIP THIS TEST 

ARE LINE CLOCK TESTS INHIBITED? 

IF YES, SKIP THIS TEST 

SET PSW TO PRIORITY 7 

SAVE LINE CLOCK VECTOR 

SAVE LINE CLOCK PSW VECTOR 

SET RTC INTERRUPT VECTOR TG ERROR REPORT 

KEEP PRIORITY AT 7 

CLEAR CLOCK DONE FLAG 

SET INTERRUPT ENABLE 

WAIT FOR RTC DONE( INTERRUPT REQUEST) 

GIVE TIME FOR ANY INTERRUPTS 
BR, IF NO INTERRUPT OCCURS 

RESTORE SP AFTER INTERRUPT 
RTC INTERRUPTS AT PRIORITY 7 



) 



@LKS 



;DISABLE RTC INTERRUPTS & CLEAR DONE 



#4$,@RTCVT 

PCWRPSW 

.WORD 240 

@LKS 

20$ 

5$ 

(SP)+,(SP)+ 
45 

#7$,@RTCVT 

#BIT7,@LKS 

#BIT6,@LKS 

f>LKS 

6$ 

46 

(SP)+,{SP)+ 
#BIT6,@LKS 
R3,@RTCVT 
R4,©RTCPSW 



;SET RTC INTERRUPT VECTOR FOR ERROR 
;CHANGE PSW TO PRIORITY 5 

;WAIT FOR DONE (INTERRUPT REQUEST) 

;GIVE TIME FOR ANY INTERRUPT 

; IF NO INTERRUPT - BR TO CONTINUE TEST 

;RESTORE SP AFTER INTERRUPT 

;RTC INTERRUPTS WITH INTERRUPTS DISABLED 

; POINT RTC VECTOR TO END OF TEST 
;CLEAR CLOCK DONE FLAG 
;ALLOW INTERRUPTS 
;WAIT FOR RTC DONE 

;GIVE TIME FOR INTERRUPT 

;RTC INTERRUPT DID NOT OCCUR 

; RESTORE SP AFTER INTERRUPT 

-.DISABLE INTERRUPTS 

; RESTORE LINE CLOCK VECTOR 

; RESTORE tiNE CLOCK PSW VECTOR 
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T17 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 



SEQ 0043 



1837 
















1838 
















1839 
















1840 










• .^^^^n^1H^^f■l^^^■)n^:^■^sii^ 




1841 










;*TEST 


20 


TEST RTC FOR 


1042 










J ^^^^^n^i^^^■^t■^^■)^■i^■i^i^il^■)!. 


1|.1^■i|.■»^1^■^^1^■^^1^^Hf1^■»^ 


1843 


006020 


000004 






TST20: 


SCOPE 




1844 


006022 


005737 


002336 






TST 


CTSTFL 


1845 


006026 


001457 








BEO 


TST21 


1846 


006030 


032777 


000100 


173002 




BIT 


#BIT6,@SWR 


1847 


006036 


001053 








BNE 


TST21 


1848 


006040 


000005 








RESET 




1849 


006042 


017703 


174342 






MOV 


@RTCVT,R3 


1850 


006046 


017704 


174340 






MOV 


(PRTCPSW,R4 


1851 


006052 


012777 


006122 


174330 




MOV 


#2$,®RTCVT 


1852 


006060 


012777 


000340 


174324 




MOV 


#340,@RTCPSW 


1853 


006066 


004737 


012242 






USR 


PCWRPSW 


1854 


006072 


000240 










.WORD 240 


1855 


006074 


042777 


000200 


174304 




BIC 


#BIT7,@LKS 


1856 


006102 


052777 


000100 


174276 




BIS 


#BIT6,®LKS 


1857 


006110 


105777 


174272 




1$: 


TSTB 


@LKS 


1858 


006114 


100375 








BPL 


1$ 


1859 


006116 


000240 








NOP 




1860 
















1861 


006120 


104047 








ERROR 


47 


1862 
















1863 


006122 


022626 






2$: 


CMP 


(SP)+,(SP)+ 


1864 


006124 


012777 


006144 


174256 




MOV 


#3$,@RTCVT 


1865 


006132 


004737 


012242 






USR 


PCWRPSW 


1866 


006136 


000240 










.WORD 240 


1867 


006140 


000240 








NOP 




1868 


006142 


000402 








BR 


4$ 


1869 
















1870 


006144 


022626 






3$: 


CMP 


(SP)+,(SP)+ 


1871 


006146 


104050 








ERROR 


50 


1872 
















1873 
















1874 


006150 


042777 


000100 


174230 


4$: 


BIC 


#BIT6,@LKS 


1875 


006156 


010377 


174226 






MOV 


R3,©RTCVT 


1878 


006162 


010477 


174224 






MOV 


R4,©RTCPSW 



>|< »< # « « 4< sit :«! 4c « « « « 



;IS CONSOLE UNDER TEST? 

;IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

;IF YES, SKIP THIS TEST 

;CLEAR EVERYTHING 

;SAVE LINE CLOCK VECTOR 

;SAVE LINE CLOCK PSW VECTOR 

;SET UP RTC INTERRUPT VECTOR 

; DISALLOW INTERRUPTS AFTER THE INTERRUPT 

;SET PRIORITY TO 5 

; CLEAR CLOCK DONE FLAG 
; ENABLE CLOCK INTERRUPTS 
JWAIT FOR DONE 

;GIVE TIME FOR ANY INTERRUPT 

;RTC INTERRUPT DID NOT OCCUR 

;RESTORE SP AFTER INTERRUPT 
".POINT RTC VECTOR TO ERROR REPORT 
;SET PSW TO PRIORITY 5 

;GIVE SOME TIME FOR AN INTERRUPT 
;N0 INTERRUPT - BR TO END OF TEST 

; RESTORE SP AFTER INTERRUPT 
INTERRUPT SEQUENCE DID NOT CLEAR 
; INTERRUPT REQUEST 

SDISABLE CLOCK INTERRUPTS 
; RESTORE LINE CLOCK VECTOR 
•.RESTORE LINE CLOCK PSW VECTOR 



i 
J 
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TEST RTC FOR DOUBLE INTERRUPTS 



SEP 0044 



1877 
















1878 
















1879 










;;**** 






1880 










;*TEST 


21 


TEST THAT R 


1881 










J 1 *it<i4<« 


)>>jr>tc*>i<«:S<4i 




1882 


006166 


000004 






TST21-. 


SCOPE 




1883 


006170 


005737 


002336 






TST 


CTSTFL 


1884 


006174 


001442 








BEO 


TST22 


1885 


006176 


032777 


000100 


172634 




BIT 


#BIT6,(PSWR 


1886 


006204 


001036 








BNE 


TST22 


1887 


006206 


004737 


012242 






JSR 


PC.WRPSW 


1888 


006212 


000340 










.WORD 340 


1889 


006214 


017703 


174170 






MOV 


@RTCVT,R3 


1890 


006220 


012777 


006272 


174162 




MOV 


#2$,®RTCVT 


1891 


006226 


042777 


000200 


174152 




BIC 


#BIT7,PLKS 


1892 


006234 


052777 


000100 


174144 




BIS 


#BIT6,®LKS 


1893 


006242 


105777 


174140 




1$: 


TSTB 


@LKS 


1894 


006246 


100375 








BPL 


1$ 


1895 


006250 


000005 








RESET 




1896 


006252 


004737 


012242 






JSR 


PCWRPSW 


1897 


006256 


000240 










.WORD 240 


1898 


006260 


000240 








NOP 




1899 


006262 


042777 


000100 


174116 




BIC 


#BIT6,i>LKS 


1900 


006270 


000402 








BR 


3$ 


1901 
















1902 


006272 


022626 






2$: 


CMP 


(SP) + ,{SP)4- 


1903 


006274 


104051 








ERROR 


51 


1904 
















1905 


006276 


010377 


174106 




3$: 


MOV 


R3,@RTCVT 



««««ljl«l$l« 



# !» «, « >;■ « iH 



;IS CONSOLE UNDER TEST? 

; IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

;IF YES, SKIP THIS TEST 

;SET PRIORITY TO 7 

;SAVE LINE CLOCK VECTOR 

; POINT RTC VECTOR TO ERROR REPORT 

JCLEAR CLOCK DONE FLAG 

; ENABLE CLOCK INTERRUPTS 

;WAIT FOR DONE (INTERRUPT REQUEST) 

;CLEAR PENDING INTERRUPT WITH RESET 
;SET PRIORITY TO 5 

;GIVE TIME FOR ANY INTERRUPT 
•,DISALLOW INTERRUPTS 
;BR TO END OF TEST 

; RESTORE SP AFTER INTERRUPT 

; RESET DID NOT CLEAR INTERRUPT 

; RESTORE LINE CLOCK VECTOR 
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T21 TEST THAT RTC INTERRUPT CLEARS WITH RESET 



SEQ 0045 



1906 
















1907 
















1908 










; .*********♦**************« 


1909 










;*TEST 


22 


TEST THAT R 


1910 










J • :«|««>|| 


k******************** 


1911 


006302 


000004 






TST22: 


SCOPE 




1912 


006304 


005737 


002336 






TST 


CTSTFL 


1913 


006310 


001447 








BEO 


TST23 


1914 


006312 


032777 


000100 


172520 




BIT 


#BIT6,@SWR 


1915 


006320 


001043 








BNE 


TST23 


1916 


006322 


004737 


012242 






USR 


PC.WRPSW 


1917 


006326 


000340 










.WORD 340 


1918 


006330 


017703 


174054 






MOV 


(iiRTCVT,R3 


1919 


006334 


012777 


006412 


174046 




MOV 


#2$,@RTCVT 


1920 


006342 


042777 


000200 


174036 




BIC 


#BIT7,@LKS 


1921 


006350 


052777 


000100 


174030 




BIS 


^BIT6,@LKS 


1922 


006356 


105777 


174024 




1$: 


TSTB 


PLKS 


1923 


006362 


100375 








BPL 


1$ 


1924 


006364 


042777 


000200 


174014 




BIC 


#BIT7,@LKS 


1925 


006372 


004737 


012242 






dSR 


PCWRPSW 


1926 


006376 


000240 










.WORD 240 


1927 


006400 


000240 








NOP 




1928 


006402 


042777 


000100 


173776 




BIC 


#BIT6,@LKS 


1929 


006410 


000402 








BR 


3$ 


1930 
















1931 
















1932 


006412 


022626 






2$: 


CMP 


{SP)4-,(SP)-H 


1933 


006414 


104052 








ERROR 


52 


1934 
















1935 


006416 


010377 


173766 




3$: 


MOV 


R3,@RTCVT 


1936 


006422 


004737 


012242 






JSR 


PC.WRPSW 


1937 


006426 


000340 








.WORD 


340 



TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 

♦ He******************************* 



;IS CONSOLE UNDER TEST? 

;IF NOT. SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

;IF YES, SKIP THIS TEST 

;SET PRIORITY TO 7 



;SAVE LINE CLOCK VECTOR 

; POINT RTC VECTOR TO ERROR REPORT 

;CLEAR CLOCK DONE FLAG 

; ENABLE CLOCK INTERRUPTS 

;WAIT FOR DONE (INTERRUPT REQUEST) 

;CLEAR DONE & INTERRUPT 
;ALLOW INTERRUPTS 

;GIVE TIME FOR ANY INTERRUPT 
;DISALLOW INTERRUPTS 
;BR TO END OF TEST 



;RESTORE SP AFTER INTERRUPT 

;CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT 



; RESTORE LINE CLOCK VECTOR 
;RESTORE PRIORITY TO 7 
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T22 TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 



SEQ 0046 



1938 














1939 














1940 








• • iX*^*^ 




#1^,^,^,^'****** 


1941 








•»TEST 


23 


TEST CLOCK 


1942 












1943 


005430 


000004 




TST23: 


SCOPE 




1944 


006432 


005737 


002336 




TST 


CTSTFL 


1945 


006436 


001462 






beq 


TST24 


1946 


006440 


032777 


000100 


172372 


BIT 


#BIT6,(PSWR 


1947 


006446 


001056 






bne 


TST24 


1948 


006450 


042777 


000100 


173730 


BIC 


#BIT6,(?LKS 


1949 














1950 


006456 


005000 






CLR 


RO 


1951 


006460 


012701 


177777 




MOV 


#-1,R1 


1952 


006464 


005002 




1$: 


CLR 


R2 


1953 


006466 


005077 


173714 




CLR 


@LKS 


1954 


006472 


105777 


173710 


2$: 


TSTB 


@LKS 


1955 


006476 


100375 






BPL 


2$ 


1956 


006500 


005077 


173702 




CLR 


@LKS 


1957 


006504 


105777 


173676 


3$: 


TSTB 


@LKS 


1958 


006510 


100003 






BPL 


4$ 


1959 


006512 


005202 






INC 


R2 


1960 


006514 


005077 


173666 




CLR 


PLKS 


1961 


006520 


005200 




4$: 


INC 


RO 


1962 


006522 


001370 






BNE 


3$ 


1963 


006524 


005201 






INC 


R1 


1964 


006526 


001003 






BNE 


CMPARE 


1965 


006530 


010237 


006600 




MOV 


R2, FIRST 


1966 


006534 


000753 






BR 


1$ 


1967 


006536 


013701 


006600 


CMPARE 


MOV 


FIRST, R1 


1968 


006542 


160201 






SUB 


R2,R1 


1969 


C06544 


100001 






BPL 


TOLER 


1970 


006546 


005401 






NEG 


R1 


1971 


006550 


020127 


000001 


toler: 


CMP 


R1 ,ffi 


1972 


006554 


003403 






BLE 


5$ 


1973 














1974 


006556 


010237 


006602 




MOV 


R2, SECND 


1975 


006562 


104053 






ERROR 


53 


1976 














1977 


006564 


032777 


000020 


172246 5$: 


BIT 


#BIT4,@SWR 


1978 


005572 


001404 






BEO 


TST24 


1979 


006574 


000137 


012102 




JMP 


$EOP 


1980 














1981 


006600 


000000 




first: 


.WORD 





1982 


006602 


000000 




SECND: 


.WORD 






;IS CONSOLE UNDER TEST? 

;IF NOT, SKIP THIS TEST 

;ARE LINE CLOCK TESTS INHIBITED? 

;IF YES, SKIP THIS TEST 

jDISALLOW INTERRUPTS 

CLEAR A TIMER 

SET A FLAG INDICATING FIRST PASS THRU THIS LOOP 

CLEAR CLOCK COUNTER 

CLEAR DONE 

SYNC ON DONE 

CLEAR DONE 

IS CLOCK DONE? 

BR IF NOT . TO INCREMENT TIMER 

IF DONE, INCREMENT CLOCK COUNT 

CLEAR DONE 

INCREMENT TIMER 

BR IF TIME REMAINS 

INCREMEr;T LOOP PASS FLAG 

BR IF TWO PASSES HAVE BEEN MADE 

IF NOT, STORE FIRST CLOCK COUNT 

DO LOOP AGAIN 

RECALL FIRST CLOCK COUNT 

CALCULATE DIFFERENCE OF TWO COUNTS 

IF POSITIVE, SKIP NEGATION OF DIFFERENCE 

MAKE DIFFERENCE A POSITIVE NUMBER 

COMPARE DIFFERENCE WITH DESIRED TOLERANCE 

BR, IF LOWER/EQUAL TO TOLERANCE 

; STORE SECOND COUNT 
•,CLOCK REPEATABILITY ERROR 

jCLOCK TESTS ONLY? 

;BR IF NOT 

;ELSE, JUMP TO END OF PASS ROUTINE 
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SEQ 0047 



1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 



006604 
006606 
006614 
006620 
006626 
006632 
006634 
006640 
006642 

006644 
006646 



000004 
042777 
017703 
012777 
105777 
100375 
004737 
000140 
000402 

022626 
104054 



006650 012777 

006656 052777 

006664 000240 

006666 104055 



000100 
173542 
006644 
173520 

012242 



006670 
000100 



006570 
006676 
006700 



042777 
022626 
010377 



;*TEST 24 
TST24 



*********************************************** 

TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 
*********************************************** 



173536 
173534 



173504 3$: 
173466 



000100 173454 4$: 
173456 



SCOPE 

BIC 

MOV 

MOV 

TSTB 

BPL 

dSR 

BR 

CMP 
ERROR 

MOV 
BIS 
NOP 



BIC 
CMP 
MOV 



#BIT6,@TCSR 

@TVECT,R3 

#2$,@TVECT 

@TCSR 

1$ 

PCWRPSW 

•WORD 140 

3$ 



{SP)4 

54 



,(SP)-» 



#4$,®TVECT 
#BIT6,@TCSR 



#BIT6,@TCSR 
(SP)+,(SP)+ 
R3,®TVECT 



;CLEAR TRANSMIT INTERRUPT ENABLE 
;SAVE XMIT VECTOR 

; POINT XMIT VECTOR TO ERROR REPORT 
-.WAIT FOR DONE 

;SET PSW TO PRIORITY 3 



;RESTORE SP AFTER INTERRUPT 

XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
SET XMIT VECTOR TO END OF TEST 
ENABLE INTERRUPTS 



;XMIT DID NOT INTERRUPT 

jDISABLE INTERRUPTS 

; RESTORE SP AFTER INTERRUPT 

-, RESTORE XMIT VECTOR 
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T24 TEST THAT XMIT INTERRUPTS ONLY WHEN ENABLED 



SEQ QQ4U 



2011 
















2012 












«>$:«#ijc«<««*«4:««««)j< 


2013 










•*TEST 


25 


TEST THAT XMIT 


2014 










. .i^4f*4:'******* ***************** 


2015 


006704 


000004 






TST25: 


SCOPE 




2016 


006706 


042777 


000100 


173436 




BIC 


#BIT6,#TCSR 


2017 


006714 


004737 


012242 






USR 


PC.WRPSW 


2018 


006720 


000340 










.WORD 340 


2019 


006722 


017703 


173434 






MOV 


i>TVECT,R3 


2020 


006726 


012777 


006754 


173426 




MOV 


#2$,@TVECT 


2021 


006734 


105777 


173412 




1$: 


TSTB 


PTCSR 


2022 


006740 


100375 








BPL 


1$ 


2023 


006742 


052777 


000100 


173402 




BIS 


#BIT6,@TCSR 


2024 


006750 


000240 








NOP 




2025 


006752 


000402 








BR 


3$ 


2026 
















2027 


006754 


022626 






2$: 


CMP 


(SP)+,{SP)+ 


2028 


006756 


104056 








ERROR 


56 


2029 
















2030 


006760 


042777 


000100 


173364 


3$: 


BIC 


#BIT6,PTCSR 


2031 


006766 


012777 


007006 


173366 




MOV 


#4$,@TVECT 


2032 


006774 


004737 


012242 






JSR 


PC.WRPSW 


2033 


007000 


000140 










.WORD 140 


2034 


007002 


000240 








NOP 




2035 


007004 


000402 








BR 


5$ 


2036 
















2037 


007006 


022626 






4$: 


CMP 


(SP)+,{SP)+ 


2038 


007010 


104057 








ERROR 


57 


2039 
















2040 


007012 


010377 


173344 




5$: 


MOV 


R3,@TVECT 



INTERRUPTS DO NOT OCCUR WHEN DISABLED 

;DISABLE INTERRUPTS 
;SET PSW TO PRIORITY 7 

;SAVE XMIT VECTOR 

; POINT XMIT VECTOR TO ERROR REPORT 

;WAIT FOR DONE 

;ENABLE INTERRUPT 

JCONTINUE TEST 

JRESTORE SP AFTER INTERRUPT 

;XMIT INTERRUPTS AT PRIORITY^? 
;CLEAR INTERRUPT ENABLE 
; POINT XMIT VECTOR TO ERROR REPORT 
;SET PSW TO PRIORITY 3 

;BR TO END OF TEST-NO INTERRUPT 

; RESTORE SP AFTER INTERRUPT 

JXMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
; RESTORE XMIT VECTOR 
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T25 TEST THAT XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 



SEO 0049 



2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 



007016 
007020 
007026 
007032 
007036 
007044 
007052 
007056 
007060 
007064 
007066 
007074 



000004 
042777 
017703 
017704 
012777 
012777 
004737 
000140 
105777 
100375 
052777 
000240 



007076 104060 



007100 
007102 
0071 10 
0071 14 
007116 
007120 
007126 

007130 
007132 

007134 
007140 



007144 
007146 
007154 
007160 
007162 
007166 
007174 
007202 
007206 
007212 
007214 
007220 
007224 
007226 
007230 
007236 

007240 
007242 



022626 
012777 
004737 
000140 
000240 
042777 
000402 

022626 
104061 

010377 
010477 



000004 
042777 
004737 
000340 
017703 
012777 
052777 
005077 
105777 
100375 
005077 
004737 
000140 
000240 
042777 
000402 

022626 
104062 



173222 
173220 



000100 
012242 

173174 
007240 
000100 
173146 
173140 

173134 
012242 



TEST TRANSMITTER FOR DOUBLE INTERRUPTS 



**** 



***** 



**s{i**4i***« 



000100 
173330 
173326 
007100 
000340 
012242 

173266 



000100 173256 



173316 
173312 



SCOPE 

BIC 

MOV 

MOV 

MOV 

MOV 

JSR 

TSTB 
BPL 
BIS 
NOP 

ERROR 



#BIT6,@TCSR 

@TVECT,R3 

(PTPSW,R4 

#2$,@TVECT 

#340,@TPSW 

PC.WRPSW 

.WORD 140 

®TCSR 

1$ 

#BIT6,@TCSR 



007130 
012242 



000100 173224 



CMP 


(SP)+.(SP)-i 


MOV 


#4$,@TVECT 


JSR 


PC.WRPSW 


.WORD 


140 


NOP 




BIC 


#BIT6,@TCSR 


BR 


5$ 


CMP 


(SP) + ,(SP)-f 


ERROR 


61 


MOV 


R3,@TVECT 


MOV 


R4,®TPSW 



TEST 27 TEST THAT XMIT 

«**ij<>!<l«******«*****«******:«!4i«: 

TST27: SCOPE 



173166 
173150 



000100 1731K 



BIC 


(!^BIT6,@TCSR 


JSR 


PC.WRPSW 




.WORD 340 


MOV 


®TVECT,R3 


MOV 


#2$.@TVECT 


BIS 


#BIT6,@TCSR 


CLR 


®TBUF 


TSTB 


@TCSR 


BPL 


1$ 


CLR 


@TBUF 


JSR 


PC.WRPSW 




.WORD 140 


NOP 




BIC 


(¥BIT6,@TCSR 


BR 


3$ 


CMP 


{SP)+,(SP)+ 


ERROR 


62 



;CLEAR INTERRUPT ENABLE 

;SAVE XMIT VECTOR 

;SAVE XMIT PSW VECTOR 

;SET UP XMIT VECTOR 

;SET PIO 7 AFTER INTERRUPT 

;SET PSW TO PRIORITY 3 

;WAIT FOR DONE 

;ENABLE INTERRUPTS 



;XMIT INTERRUPT DID NOT OCCUR 
;RESTORE SP AFTER INTERRUPT 
'.POINT XMIT VECTOR TO ERROR 
;SET PSW TO PRIORITY 3 

;GIVE TIME FOR ANY INTERRUPTS 
^DISABLE INTERRUPTS 
;BR TO END OF TEST 

;RESTORE SP AFTER INTERRUPT 

;XMIT RE-INTERRUPTED 
•.RESTORE XMIT VECTOR 
; RESTORE XMIT PSW VECTOR 

I*^. ************** *****4l«>Jl>N**^*lj<^!«>|<!$ 

INTERRUPT CLEARS WITH LOADING TBUF 

<*******♦ ****************Jil!J!l{!lSl****** 

jDISABLE INTERRUPTS 
;SET PSW TO PRIORITY 7 

;SAVE XMIT VECTOR 

; POINT XMIT VECTOR TO ERROR 

; ENABLE INTERRUPTS 

; LOAD TBUF 

;WAIT FOR DONE (INTERRUPT) 

;FILL SECOND BUFFER TO RESET INT. 
;ALLOW INTERRUPTS 

;GIVE TIME FOR ANY INTERRUPTS 
'.DISABLE INTERRUPTS 
;BR TO END OF TEST 

IRESTORE SP AFTER INTERRUPT 
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CZDLDC.P11 19-APR-78 1i:41 T27 TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 



S£Q 0050 



2097 

2098 007244 010377 173112 

2099 



R3,@TVECT 



; LOADING TBUF DID NOT CLEAR INTERRUPT. 
; RESTORE XMIT VECTOR 
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T27 TEST THAT XMIT INTERRUPT CLEARS WITH LOADING TBUF 



SEQ 0051 



2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
21 19 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 



007250 
007252 
007254 
007262 
007264 
007270 
007276 
007300 
007302 
007304 



007314 
007316 
007324 



000004 
000005 
052777 
005000 
005077 
032777 
001006 
005200 
001372 
042777 



007330 
007332 
007340 
007344 
007346 
007350 
007356 

007360 
007366 

007370 
007372 
007376 
007402 
007404 
007406 
007410 
007416 



007420 
007426 
007430 
007436 



007440 
007442 
007446 

007450 

007456 



173064 
004000 



007312 104063 



000005 
032777 
001401 



007326 104115 



005000 
052777 
062700 
005200 
001374 
033777 
001404 

042777 
104116 

005000 
005077 
105777 
100406 
005200 
001373 
042777 
104064 



032777 004000 

001404 

042777 000004 

104065 



000005 

105777 172700 



TEST THAT RCVR ACTIVE (11) & DONE (7) SET & CLEAR PROPERLY 



000004 173070 



173050 WACTV: 



000004 173040 



004000 173022 



SCOPE 

RESET 

BIS 

CLR 

CLR 

BIT 

BNE 

INC 

BNE 

BIC 

ERROR 



000004 
000000 



004000 172770 



000004 172764 



172756 
172744 



000004 172734 



172720 
172714 



#BIT2,®TCSR 

RO 

@TBUF 

#BIT11 ,@RCSR 

2$ 

RO 

WACTV 

#BIT2,®TCSR 



042777 
104066 



000004 172674 



2$: 


RESET 






BIT 


#BIT11 ,@RCSR 




BEO 


3$ 




ERROR 


115 


3$: 


CLR 


RO 




BIS 


#BIT2,i>TCSR 


WT: 


ADD 


#0,R0 




INC 


RO 




BNE 


WT 




BIT 


BIT11 ,@RCSR 




BEO 


4$ 




BIC 


/^BIT2,®TCSR 




ERROR 


116 


4$: 


CLR 


RO 




CLR 


@TBUF 


WDONE: 


TSTB 


fRCSR 




BMI 


5$ 




INC 


RO 




BNE 


WDONE 




BIC 


#BIT2,@TCSk 




ERROR 


64 


5$: 


BIT 


jl'BITII.^RCSR 




BEO 


6$ 




BIC 


#BIT2,@TCSR 




ERROR 


65 


6$: 


RESET 






TSTB 


#RCSR 




BEO 


7$ 




BIC 


#BIT2,@TCSR 




ERROR 


66 



;CLEAR EVERYTHING 

;SET MAINTENANCE WRAP 

;CLEAR A TIMER 

;LDAD TRANSMIT BUFFER 

;TEST RCVR ACTIVE BIT 

;BR IF SET 

; INCREMENT TIMER IF NOT SET 

;CONTINUE WAIT IF TIME REMAINS 

JCLEAR MAINTENANCE BIT 

;RCVR ACTIVE DID NOT SET WHILE RECEIVING 



;VERIFY "INIT" CLEARS RCV ACTIVE 



JINIT DID NOT CLEAR RCV ACTIVE 



;CLEAR A TIMER 

;SET MAINTENANCE WRAP 

;WAIT AT LEAST ONE BIT TIME 



VERIFY RCV ACTIVE STILL CLEAR 
BR IF CLEAR 

CLEAR MAINTENANCE WRAP 

RCV ACTIVE WITHOUT "START" BIT 

CLEAR TIMER 

LOAD TRANSMIT BUFFER 

CHECK FOR RECEIVER DONE 

BR, IF DONE 

INCREMENT TIMER, IF NOT DONE 

CONTINUE WAIT IF TIME REMAINS 

CLEAR MAINTENANCE BIT 

RECEIVER DONE NEVER SET 

CHECK FOR RCVR ACTIVE CLEAR 

BR, IF CLEAR 

CLEAR MAINTENANCE BIT 

RCVR ACTIVE DID NOT CLEAR WITH RCVR DONE 

CLEAR DONE WITH RESET 
CHECK FOR DONE CLEAR 



jCLEAR MAINTENANCE BIT 
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SEQ 0052 



2156 
















2157 
















2158 


007460 


042777 


000004 


172660 


7$: 


BIC 


#BIT2,®RCSR 


2159 


007466 


000400 








BR 


TST31 



; RESET DID NOT CLEAR RCVR DONE 



ICLEAR MAINTENANCE BIT 
;BR TO NEXT TEST 
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T30 TEST THAT RCVR ACTIVE (11) a DONE (7) SET & CLEAR PROPERLY 



SEQ 0053 



2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2166 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 



007470 
007472 
007474 
007502 
007510 
007514 
007520 
007522 
007530 



000004 
000005 
052777 
052777 
005077 
105777 
100375 
032777 
001401 



007534 
007542 
007546 
007550 
007556 



007560 
007562 
007564 
007572 
007576 
007602 
007604 
007610 
007616 
007622 
007624 



000001 
000004 
172640 
172626 



007532 104117 



052777 
105777 
001404 
042777 
104067 



000004 
000005 
052777 
005077 
105777 
100375 
017700 
042777 
105777 
001401 
104070 



000001 
172600 



TEST THAT RDR ENABLE CLEARS RECEIVER DONE FLAG 

♦ He************************************************ 



172644 
172642 



000001 172616 



172604 2$: 



000004 172574 



000004 
172556 
172544 

172540 
000004 
172524 



SCOPE 

RESET 

BIS 

BIS 

CLR 

TSTB 

BPL 

BIT 

BEQ 

ERROR 

BIS 

TSTB 

BEQ 

BIC 

ERROR 



#BITO,@RCSR 

#BIT2,@TCSR 

PTBUF 

®RCSR 

1$ 

#BITO,@RCSR 

2$ 

117 

#BITO,@RCSR 

@RCSR 

TST32 

#BIT2,@TCSR 

67 



-.CLEAR EVERYTHING 
;SET RDR ENABLE 
;SET MAINTENANCE WRAP 
;LOAD TRANSMITTER 
;WAIT FOR RECEIVER DONE 

'.VERIFY RCV ACTIVE CLEARED RDR ENABLE 
;BR IF CLEAR 

•,RDR ENABLE NOT CLEARED WITH RCV ACTIVE 

-.CLEAR DONE BY SETTING RDR ENABLE 
-.CHECK FOR DONE CLEAR 
;BR, IF CLEAR TO NEXT TEST 
;CLEAR MAINTENANCE BIT 

; SETTING RDR ENABLE DID NOT CLEAR RCVR DONE 



1$: 



TEST 32 


TEST THAT R 


^i^iTi:**^!*!^^^***!^^^!*********** 


T32: SCOPE 




RESET 




BIS 


#BIT2,®TCSR 


CLR 


®TBUF 


: TSTB 


@RCSR 


BPL 


1$ 


MOV 


@RBUF,RO 


BIC 


)5'BIT2,@TCSR 


TSTB 


©RCSR 


BEO 


TST33 


ERROR 


70 



TEST THAT READING RBUF CLEARS RECEIVER DONE 



-.CLEAR EVERYTHING 
;SET MAINTENANCE WRAP 
JLOAD TRANSMITTER 
;WAIT FOR RECEIVER DONE 

;READ RECEIVE BUFFER 
;CLEAR MAINTENANCE BIT 
;CHECK FOR RECEIVE DONE CLEAR 
;BR, IF CLEAR TO NEXT TEST 



; READING RBUF DID NOT CLEAR RCVR DONE 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19~APR-78 11141 



11:44 PAGE 54 

T32 TEST THAT READING RBUF CLEARS RECEIVER DONE 



SEQ 00S4 



2201 
2202 
















2203 










> .**in,i 




2204 










;*TEST 


33 


TEST THAT R 


2205 










; •4Lm**<i 




2206 


007626 


000004 






TST33: 


SCOPE 




2207 


007630 


042777 


000100 


172514 




BIC 


)yBIT6,@TCSR 


2208 


007636 


042777 


000100 


172502 




BIC 


#BIT6,@RCSR 


2209 


007644 


052777 


000004 


172500 




BIS 


#BIT2,®TCSR 


2210 


007652 


017703 


172500 






MOV 


®RVECT,R3 


2211 


007656 


012777 


007714 


172472 




MOV 


#2$,@RVECT 


2212 


007664 


004737 


012242 






JSR 


PC.WRPSW 


2213 


007670 


000140 










.WORD 140 


2214 


007672 


005077 


172456 






CLR 


@TBUF 


2215 


007676 


105777 


172444 




1$: 


TSTB 


®RCSR 


2216 


007702 


100375 








BPL 


1$ 


2217 


007704 


042777 


000004 


172440 




BIC 


#BIT2,@TCSR 


2218 


007712 


000405 








BR 


3$ 


2219 
















2220 


007714 


042777 


000004 


172430 


2$: 


BIC 


#BIT2,®TCSR 


2221 


007722 


022626 








CMP 


(SP)+,{SP)+ 


2222 


007724 


104071 








ERROR 


71 


2223 
















2224 
















2225 


007726 


012777 


007754 


172422 


3$: 


MOV 


#4$,@RVECT 


2226 


007734 


052777 


000100 


172404 




BIS 


#BIT6,i>RCSR 


2227 


007742 


000240 








NOP 




2228 


007744 


042777 


000004 


172400 




BIC 


#BIT2,@TCSR 


2229 


007752 


104072 








ERROR 


72 


2230 
















2231 
















2232 


007754 


042777 


000100 


172364 


4S: 


BIC 


/5'BIT6,®RCSR 


2233 


007762 


042777 


000004 


17236?. 




BIC 


#BIT2,@>TCSR 


2234 


007770 


022626 








CMP 


(SP) + ,(SP)-f 


2235 


007772 


010377 


172360 






MOV 


R3,#RVECT 



TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 



IDISABLE TRANSMIT INTERRUPTS 

jDISABLE RECEIVER INTERRUPTS 

;SET MAINTENANCE WRAP 

;SAVE RECEIVE VECTOR 

; POINT RCV VECTOR TO ERROR REPORT 

;SET PSW TO PRIORITY 3 

;SEND A CHARACTER 
;WAIT FOR RECEIVER DONE 

;CLEAR MAINTENANCE BIT 
; CONTINUE TEST 

;CLEAR MAINTENANCE BIT 

; RESTORE SP AFTER INTERRUPT 

; RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 

; POINT RCV VECTOR TO END OF TEST 
; ENABLE RCV INTERRUPTS 
;GIVE ANY INTERRUPTS TIME 
;CLEAR MAINTENANCE BIT 

;RCVR DID NOT INTERRUPT 

JDISABLE INTERRUPTS 
;CLEAR MAINTENANCE BIT 
; RESTORE SP AFTER INTERRUPT 
; RESTORE RECEIVE VECTOR 
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T33 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 



SEO 0055 



2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 



007776 
010000 
010002 
010006 
010010 
010014 
010022 
010030 
010034 
010040 
010042 
010050 
010052 
010054 
010062 
010064 



010066 
010074 
010102 
010106 
0101 10 
010112 
010120 

010122 
010130 
010132 



000004 
000005 
004737 
000340 
017703 
012777 
052777 
005077 
105777 
100375 
052777 
000240 
000405 
042777 
022626 
104073 



012242 

172342 
010054 
000004 
172320 
172306 



042777 000100 

012777 010122 

004737 012242 

000140 

000240 

042777 

000405 



042777 000004 

022626 

104074 



172334 
172322 



000100 172276 



000004 172270 2$: 



*TEST 34 

; « » * Xi Id i» 41 * :)( >|cit< * 

TST34: SCOPE 
RESET 
dSR 



MOV 

MOV 

BIS 

CLR 

TSTB 

BPL 

BIS 

NOP 

BR 

BIC 

CMP 

ERROR 



TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 



172252 
172254 



000004 172232 



010134 010377 172216 



172222 4$: 



5$: 



BIC 
MOV 
USR 

NOP 
BIC 
BR 

BIC 
CMP 
ERROR 



PC.WRPSW 

.WORD 340 

®RVECT,R3 

#2$,@RVECT 

#BIT2,@TCSR 

@TBUF 

@RCSR 

1$ 

#BIT6,®RCSR 

3$ 

#BIT2,®TCSR 
(SP)+.(SP)-l- 
73 



/yBITB.^RCSR 
/S'4$,@RVECT 
PC.WRPSW 
.WORD 140 

#BIT2,@TCSR 
5$ 

#BIT2,#TCSR 
(SP)+,(SP)+ 
74 



;CLEAR EVERYTHING 
;SET PSW TO PRIORITY 7 

;SAVE RECEIVE VECTOR 

; POINT RCVR VECTOR TO ERROR REPORT 

;SET MAINTENANCE WRAP 

;SEND A CHARACTER 

JWAIT FOR RECEIVER DONE 

; ENABLE INTERRUPTS 

;GIVE TIME FOR INTERRUPT 

;CONTINUE TEST 

JCLEAR MAINTENANCE BIT 

;RESTORE SP AFTER INTERRUPT 

;RCVR INTERRUPTS AT PRIORITY 7 

;CLEAR INTERRUPT ENABLE 

; POINT RCVR VECTOR TO ERROR REPORT 

;SET PSW TO PRIORITY 3 

;GIVE TIME FOR ANY INTERRUPT 

;CLEAR MAINTENANCE BIT 

;BR TO END OF TEST, IF NO INTERRUPT 

;CLEAR MAINTENANCE BIT 
;RESTORE SP AFTER INTERRUPT 

jRCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
; RESTORE RECEIVE VECTOR 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 56 

T34 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 



SEQ 0056 



2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 



010140 
010142 
010144 
010150 
010154 
010162 
010170 
010174 
010176 
010204 
010210 
010214 
010216 
010224 
010232 



010236 
010240 
010246 
010252 
010254 
010256 
010264 
010270 
010274 

010275 
010300 



000004 
000005 
017703 
017704 
012777 
012777 
004737 
000140 
052777 
005077 
105777 
100375 
042777 
052777 
000240 



010234 104075 



022626 
012777 
004737 
000140 
000240 
042777 
010377 
010477 
000402 

022626 
104076 



172206 
172204 
010236 
000340 
012242 

000004 
172144 
172132 

000004 
000100 



010276 
012242 



000100 
172066 
172064 



J 4i « «i « » « * 

*TEST 35 

• « * iH « i|i « * « Hi « * 41 

TSt35: SCOPE 
RESET 
MOV 
MOV 
172174 MOV 

172170 MOV 

JSR 



0^,^4:MHll<il*«***s>l***** 



TEST RECEIVER FOR DOUBLE INTERRUPTS 



rti****#****0******>ii**« 



« « >tl 4i >il « iK « $ « ijl Id 



« itl :(ilii i|! « « iji « itl !^ ijl 



172146 



172126 
172114 



BIS 

CLR 

TSTB 

BPL 

BIC 

BIS 

NOP 

ERROR 



®RVECT,R3 

i)RPSW,R4 

#2$,@RVECT 

#340,§>RPSW 

PC.WRPSW 

.WORD 140 

#BIT2,®TCSR 

@TBUF 

@RCSR 

1$ 

#BIT2,®TCSR 

#BIT6.@RCSR 



010302 010377 172050 



CMP 


(SP)+,(SP)+ 


MOV 


#3$,®RVECT 


JSR 


PC.WRPSW 


.WORD 


#140 


NOP 




BIC 


#BIT6,@RCSR 


MOV 


R3,©RVECT 


MOV 


R4,©RPSW 


BR 


4$ 


CMP 


(SP)+,(SP)+ 


ERROR 


76 


MOV 


R3,9RVECT 



;CLEAR EVERYTHING 

;SAVE RECEIVE VECTOR 

;SAVE RECEIVE PSW VECTOR 

; POINT RCV VECTOR TO CONTINUE TEST 

;SET PRIORITY TO 7 AFTER INTERRUPT 

;SET PSW TO PRIORITY 3 

;SET MAINTENANCE WRAP 
;SEND A CHARACTER 
;WAIT FOR RCVR DONE 

jCLEAR MAINTENANCE BIT 
; ENABLE RCV INTERRUPTS 
;GIVE SOME TIME 



;RCVR INTERRUPT DID NOT OCCUR 

;RESTORE SP AFTER INTERRUPT 

; POINT RCV VECTOR TO ERROR REPORT 

;RESET PSW TO PRIORITY 3 

;GIVE SOME TIME 

;CLEAR INTERRUPT ENABLE 

{RESTORE RECEIVE VECTOR 

; RESTORE RECEIVE PSW VECTOR 

;BR TO END OF TEST 

; RESTORE SP AFTER INTERRUPT 

{RECEIVER RE-INTERRUPTED 
{RESTORE RECEIVE VECTOR 
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T35 TEST RECEIVER FOR DOUBLE INTERRUPTS 



2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 



010306 
010310 
010312 
010316 
010320 
010324 
010332 
010340 
010346 
010352 
010356 
010360 
010366 
010372 
010376 
010400 
010402 
010410 

010412 
010414 



000004 
000005 
004737 
000340 
017703 
012777 
052777 
052777 
005077 
105777 
100375 
042777 
005077 
004737 
000140 
000240 
042777 
000402 

022626 
104077 



172024 
172006 
172004 



012242 

172032 
010412 
000100 
000004 
172002 
171770 

000004 
171756 
012242 



000100 171736 



TEST 36 

IX >(< »! * ■» !)< >tc * IK * 4I1H 

TST36: SCOPE 
RESET 
JSR 



MOV 

MOV 

BIS 

BIS 

CLR 

TSTB 

BPL 

BIC 

CLR 

JSR 



itii|c>Xi|<««*««*«*>l>*>t<««*<l<*>«i«>>ti***>t<4>*>t<4'«4t<«<**««4<«4i>ti«!t<«««*>i<« 

TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 



1$: 



010416 010377 171734 



2$: 
3$: 



NOP 
BIC 
BR 

CMP 
ERROR 



PC.WRPSW 

•WORD 340 

@RVECT,R3 

#2$,@RVECT 

#BIT6,@RCSR 

#BIT2,@TCSR 

@TBUF 

@RCSR 

1$ 

#BIT2,@TCSR 

®RBUF 

PC.WRPSW 

.WORD 140 

#BIT6,©RCSR 
3$ 

(SP)+,(SP)+ 
77 



{CLEAR EVERYTHING 
{SET PSW PRIORITY TO 7 

{SAVE RECEIVE VECTOR 

{POINT RCV VECTOR TO ERROR REPORT 

{SET RCVR INTERRUPT ENABLE 

{SET MAINTENANCE WRAP 

{SEND A CHARACTER 

{WAIT FOR DONE (INTERRUPT) 

{CLEAR MAINTENANCE BIT 

{READ RBUF TO CLEAR PENDING INTERRPUT 

{SET PSW TO PRIORITY 3 

{ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
{NO INTERRUPT-CLEAR INT. ENABLE 



{RESTORE SP AFTER INTERRUPT 

{READING RBUF DID NOT CLEAR INTERRUPT 



{RESTORE RECEIVE VECTOR 
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T36 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 



SEQ oose 



2339 
















2340 
















2341 










. •i^*}ic4m****y>i** 




2342 










!*TEST 


37 


TEST THAT R 


2343 












4, lt< 4: * « * « * it( .(: « .«( « 


2344 


010422 


000004 






fsT37: 


SCOPE 




2345 


010424 


000005 








RESET 




2346 


010426 


004737 


012242 






JSR 


PCWRPSW 


2347 


010432 


000340 










.WORD 340 


2348 


010434 


017703 


171716 






MOV 


@RVECT,R3 


2349 


010440 


012777 


010520 


171710 




MOV 


#2$,@RVECT 


2350 


010446 


052777 


000100 


171672 




BIS 


#BIT6,@RCSR 


2351 


010454 


052777 


000004 


171670 




BIS 


)S'BIT2,f>TCSR 


2352 


010462 


01 2777 


000377 


171664 




MOV 


#377,@TBUF 


2353 


010470 


105777 


171652 




1$: 


TSTB 


@RCSR 


2354 


010474 


100375 








BPL 


1$ 


2355 


010476 


000005 








RESET 




2356 


010500 


004737 


012242 






JSR 


PCWRPSW 


2357 


010504 


000140 










.WORD 140 


2358 


010506 


000240 








NOP 




2359 


010510 


042777 


000100 


171630 




BIC 


#BIT6,®RCSF. 


2360 


010516 


000402 








BR 


3$ 


2361 
















2362 
















2363 


010520 


022626 






2$: 


CMP 


(SP)+,(SP)+ 


2364 


010522 


104100 








ERROR 


100 


2365 
















2366 


010524 


010377 


171626 




3$: 


MOV 


R3,@RVECT 



Jc********************************* 

CLEARS RECEIVE INTERRUPT 

;CLEAR EVERYTHING 
;SET PSW TO PRIORITY 7 

;SAVE RECEIVE VECTOR 

; POINT RCV VECTOR TO ERROR REPORT 

ISET RCV INTERRUPT ENABLE 

;SET MAINTENANCE WRAP 

;SEND AN ALL 1'S CHARACTER 

;WAIT FOR RCV DONE 

;CLEAR RCV INTERRUPT & RBUF 
;SET PSW TO PRIORITY 3 

; ALLOW TIME FOR AN ERRONEOUS INTERRUPT 
;N0 INTERRUPT-CLEAR INT. ENABLE 
;CONTINUE TEST 



; RESTORE SP AFTER INTERRUPT 

; RESET DID NOT CLEAR RCVR INTERRUPT 



; RESTORE RECEIVE VECTOR 
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T37 TEST THAT RESET CLEARS RECEIVE INTERRUPT 



SEQ 0059 



2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 



010530 
010532 
010540 
010542 
010544 
010552 
010556 
010562 
010566 
010570 
010572 
010574 
010602 
010610 
010612 



010614 032777 
010622 001001 
010624 104102 



TEST THAT THE "OR" 



ERROR (BIT14) & 



"ERROR" (BIT15) CAN BE SET 

* Hi * HI « « 4c « « Dt « 4: « 4< 



000004 
032777 
001432 
000005 
052777 
012700 
005077 
105777 
100375 
005300 
001371 
042777 
032777 
001001 
104101 



002000 170300 



000004 
000003 
171572 
171564 



1$: 
2$: 



000004 
040000 



171550 
171540 



100000 171526 3$: 



SCOPE 

BIT 

BEO 

RESET 

BIS 

MOV 

CLR 

TSTB 

BPL 

DEC 

BNE 

BIC 

BIT 

BNE 

ERROR 



BIT 
BNE 
ERROR 



#BIT10,®SWR 
TST41 

#BIT2,®TCSR 

#3,R0 

PTBUF 

@TCSR 

2$ 

RO 

1$ 

#BIT2,@TCSR 

#BIT14,@RBUF 

3$ 

101 



#BIT15,©RBUF 

4$ 

102 



IS THIS TEST ENABLED 

IF NOT ENABLED. BR TO NEXT TEST 

CLEAR EVERYTHING 

SET MAINTENANCE WRAP 

SET CHARACTER COUNT TO SEND 3 CHAR. 

LOAD TRANSMIT BUFFER 

WAIT FOR TRANSMIT DONE 

DECREMENT CHARACTER COUNT 

BR IF ALL CHARACTERS NOT TRANSMITTED 

CLEAR MAINTENANCE BIT 

TEST FOR "OR" ERROR FLAG 

BR, IF SET 

"OR" ERROR FLAG DID NOT SET 

FLAG 



TEST "ERROR 
BR, IF SET 



•ERROR" FLAG DID NOT SET WITH -OR" FLAG 
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CZDLDC.P11 19-APR-78 11:41 T40 TEST THAT THE "OR" ERROR (BIT14) & "ERROR" 



SEQ 0060 



(BIT15) CAN BE SET 



2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 



010326 
010630 
010636 
010640 
010642 
010650 
010656 
010662 
010664 
010670 
010676 
010700 
010706 
010710 
010712 

010714 
010722 

010724 
010730 
010732 



000004 
032777 
001444 
000005 
052777 
012777 
105777 
100375 
005077 
052777 
005000 
117737 
100406 
005200 
001372 



042777 000005 
104103 

105777 171420 

001404 

042777 000005 

104103 

042777 000005 



000400 170202 



171502 
171476 



000004 
177777 
171464 

171460 
000001 



171442 001026 2$ 







TEST 41 


TEST THAT BREAK T 






T4l: SCOPE 




BIT 


#BIT8,@SWR ; 


BEO 


TST42 ; 


RESET 


; 


BIS 


#BIT2,@TCSR ; 


MOV 


#-1 ,@TBUF ; 


: TSTB 


®RCSR ; 


BPL 


1$ 


CLR 


PRBUF ; 


BIS 


#BITO,®iTCSR ; 


CLR 


RO ; 


,: MOVB 


@RCSR,$BDDAT ; 


BMI 


C0NT41 ; 


INC 


RO ; 


BNE 


2$ ; 


BIC 


#BIT0!BIT2,@TCSR 


ERROR 


103 


3NT41: TSTB 


@RBUF ; 


BEO 


3$ ; 


BIC 


#BIT01BIT2,@TCSR 


ERROR 


103 


i: BIC 


#BIT0!BIT2,@TCSR 



RANSMITS ALL ZEROES 

IS BREAK FUNCTION TEST ENABLED? 
BR TO NEXT TEST, IF NOT ENABLED 
CLEAR EVERYTHING 
SET MAINTENANCE WRAP 
TRANSMIT ALL ONES TO RCVR 
WAIT FOR RCVR DONE 

CLEAR DONE (LEAVING ALL ONLS IN RBUF) 

TRANSMIT BREAK 

CLEAR A TIMER 

WAIT FOR RCVR DONE 

BR IF DONE 

IF NOT, INCREMENT TIMER 

BR IF TIME REMAINS 

ICLEAR MAINTENANCE & BREAK BITS 
BREAK DID NOT TRANSMIT ANYTHING 

CHECK RECEIVE BUFFER FOR ZERO 
BR, IF ZERO 
JCLEAR MAINTENANCE & BREAK BITS 

BREAK DID NOT TRANSMIT ALL ZEROES 

; CLEAR MAINTENANCE & BREAK BITS 
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T41 TEST THAT BREAK TRANSMITS ALL ZEROES 



SEQ 0061 



2425 
















2426 
















2427 










• .it,4e,4iH<*i|i«:)c*!|c«4<i|c 




2428 










;*TEST 


42 


TEST THAT "FR 


2429 












*♦*****♦***♦** 


2430 


010750 


000004 






TST42: 


SCOPE 




2431 


010752 


032777 


002000 


170060 




BIT 


#BIT10,@SWR 


2432 


010760 


001435 








BEO 


TST43 


2433 


010762 


032777 


000400 


170050 




BIT 


#BIT8,@SWR 


2434 


010770 


001431 








BEO 


TST43 


2435 


010772 


000005 








RESET 




2436 


010774 


052777 


000004 


171350 




BIS 


#BIT2,@TCSR 


2437 


011002 


052777 


000001 


171342 




BIS 


#BITO,@TCSR 


2438 


011010 


005077 


171340 






CLR 


@TBUF 


2439 


011014 


105777 


171326 




1$: 


TSTB 


@RCSR 


2440 


011020 


100375 








BPL 


1$ 


2441 


011022 


042777 


000005 


171322 




BIC 


#BIT0!BIT2,@T 


2442 


011030 


032777 


020000 


171312 




BIT 


#BIT13,©RBUF 


2443 


011036 


001001 








BNE 


2$ 


2444 
2445 


011040 


104104 








ERROR 


104 


2446 
















2447 


011042 


032777 


100000 


171300 


2$: 


BIT 


#BIT15,@RBUF 


2448 


011050 


001001 








BNE 


3$ 


2449 
2450 


011052 


104114 








ERROR 


114 


2451 
















2452 


011054 








3$: 







ERROR CAN BE SET DURING BREAK 



; IS THE "TEST ERROR FLAGS" BIT SET 

;BR TO NEXT TEST, IF NOT SET 

;IS BREAK FUNCTION ENABLED 

;BR TO NEXT TEST, IF NOT SET 

;CLEAR EVERYTHING 

;SET MAINTENANCE WRAP 

;SEND BREAK 

; TRANSMIT A CHARACTER TO TIME BREAK 

■.WAIT FOR RCVR DONE 



; CHECK FOR FRAMING ERROR FLAG 
;BR, IF SET 



BREAK DID NOT SET FRAMING ERROR 
TEST "ERROR" FLAG 
BR, IF SET 



; "ERROR" FLAG DID NOT SET WITH "OR" FLAG 
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C2DLDC.P11 19-APR-78 11:41 T42 TEST THAT -FR» ERROR CAN BE SET DURING BREAK 



SEQ 0062 



2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 



011054 000004 

011056 000005 

011060 005001 

011062 052777 000004 



011154 
011156 
011164 
011166 
011170 



011172 
011174 
011200 
01 1202 
011206 
011210 
011212 



;*TEST 43 

; • « « « « « « 4. Id Di « * 4i 

TST43: SCOPE 

RESET 

CLR 

BIS 



TEST DATA PATH FROM TRANSMITTER TO RECEIVER USING MAINTENANCE WRAP 



011070 
011072 
011076 
011102 
011104 
0111 10 
011114 
011116 
011120 
011122 
011124 
011126 
011132 
011136 
011144 



005201 
010177 
105777 
100375 
017702 
043701 
020102 
001003 
105701 
001411 
000761 
010137 
010237 
042777 
104105 



171256 
171244 



171240 
001112 



001024 
001026 
000004 



1$: 
2$: 



011146 042777 000004 171176 4$: 



INC 

MOV 

TSTB 

BPL 

MOV 

BIC 

CMP 

BNE 

TSTB 

BEO 

BR 

MOV 

MOV 

BIC 

ERROR 

BIC 



R1 

#BIT2,©TCSR 



R1 

R1 ,@TBUF 

@RCSR 

2$ 

@RBUF,R2 

@j|^$USWR,R1 

R1 ,R2 

3$ 

R1 

4$ 

1$ 

R1 ,$GDDAT 

R2,$BDDAT 

#BIT2,@TCSR 

105 

#BIT2,#TCSR 



CLEAR EVERYTHING 

CLEAR REGISTER FOR TEST DATA 

SET MAINTENANCE WRAP 

TRANSMIT A BINARY COUNT PATTERN - UP 

TO THE BIT POSITION INDICATED BY THE 

CONTENTS OF LOCATION "SUSWR" 

INCREMENT THE TEST DATA 

XMIT A CHARACTER 

WAIT FOR RECEIVER DONE 

GET RECEIVED CHARACTER 

CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 

COMPARE DATA 

BR, IF NON-COMPARE 

TEST XMIT DATA FOR ZERO 

BR, IF FINISHED 

CONTINUE IF NOT 

STORE THE EXPECTED DATA 

STORE RECEIVED DATA 

CLEAR MAINTENANCE BIT 

DATA COMPARE DATA 

CLEAR MAINTENANCE BIT 



000004 
032777 
001432 
000005 
005001 



105201 
010177 
005000 
105777 
100403 
005200 
001373 



000200 167654 



Di * * « * itiDi « 4i * « « N 

TEST 44 

!ti 41 1* * » I* 4t 4< * * * >K !< 

TST44: SCOPE 
BIT 
BEQ 
RESET 
CLR 



INCB 

MOV 

CLR 

TSTB 

BMI 

INC 

BNE 



TEST DATA PATHS USING WRAP CABLE 

!t,lt:m***** ******************************* 



*******m***** 



******m 



#BIT7.©SWR 
TST45 



R1 

R1 ,@TBUF 

RO 

©RCSR 

3$ 

RO 

2$ 



011214 104064 



ERROR 64 



011216 
011222 



017702 171126 
043701 001112 



MOV 
BIC 



i)RBUF,R2 
9#$USWR,R1 



IS THIS TEST ENABLED 

BR, IF NOT 

CLEAR EVERYTHING 

CLEAR REGISTER FOR TEST DATA 

TRANSMIT A BINARY COUNT PATTERN - UP 

TO THE BIT POSITION INDICATED BY THE 

CONTENTS OF LOCATION »$USWR" 

INCREMENT THE TEST DATA 

XMIT A CHARACTER 

CLEAR A TIMER 

WAIT FOR RECEIVER DONE 

BR IF DONE 

INCREMENT TIMER IF NOT 

BR IF TIME REMAINS 

RECEIVER DONE NOT SET 

GET RECEIVED CHARACTER 

CLEAR LOWEST UNUSED DATA BIT POSITITON IN TEST DATA 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 63 

T44 TEST DATA PATHS USING WRAP CABLE 



SEQ 0063 



2509 


011226 


020102 




2510 


011230 


001003 




2511 


011232 


105701 




2512 


011234 


001406 




2513 


011236 


000755 




2514 


011240 


010137 


001024 


2515 


011244 


010237 


001026 


2516 








2517 


011250 


104106 





CMP 


R1,R2 


BNE 


4$ 


TSTB 


R1 


BEO 


TST45 


BR 


1$ 


MOV 


R1,$GDDAT 


MOV 


R2,$BDDAT 



; COMPARE DATA 

;BR, IF NON-COMPARE 

;TEST XMIT DATA FOR ZERO 

;BR, IF FINISHED 

JCONTINUE IF NOT 

; STORE EXPECTED DATA 

; STORE RECEIVED DATA 

;DATA COMPARE ERROR «ITH WRAP CABLE 
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C2DLDC.P11 19-APR-78 11:41 T44 TEST DATA PATHS USING WRAP CABLE 



Seg 0084 



2518 
















2519 
















2520 










• ; «!|ll)ll(< 






2521 










;*TEST 


45 


TEST DL11-W L 


2522 














2523 


011252 


000004 






fsT45: 


SCOPE 




2524 


01 1254 


000005 








RESET 




2525 


011256 


004737 


012242 






USR 


PC.WRPSW 


2526 


011262 


000340 








.WORD 


340 


2527 


011264 


017703 


171072 






MOV 


@TVECT,R3 


2528 


011270 


01 7704 


171062 






MOV 


@RVECT,R4 


2529 


011274 


017705 


171110 






MOV 


@RTCVT,R5 


2530 


011300 


017737 


171060 


011734 




MOV 


@>TPSW,STPSW 


2531 


011306 


017737 


171046 


011736 




MOV 


@RPSW,SRPSW 


2532 


011314 


017737 


171072 


011740 




MOV 


i>RTCPSW,SCPSW 


2533 


011322 


012777 


011650 


171032 




MOV 


#XMIT,@TVECT 


2534 


011330 


005077 


171030 






CLR 


@TPSW 


2535 


011334 


012777 


01 1704 


171014 




MOV 


#RCV,i>RVECT 


2536 


01 1342 


005077 


171012 






CLR 


@RPSW 


2537 


011346 


005737 


002336 






TST 


CTSTFL 


2538 


011352 


001414 








BEQ 


1$ 


2539 


011354 


032777 


000100 


167456 




BIT 


#BIT6,i>SWR 


2540 


011362 


001010 








BNE 


1$ 


2541 


011364 


012777 


011720 


171016 




MOV 


#CLK,i)RTCVT 


2542 


011372 


005077 


171014 






CLR 


©RTCPSW 


2543 


011376 


052777 


000100 


171002 




BIS 


(S'BITB.^LKS 


2544 


011404 


052777 


000004 


170740 


1$: 


BIS 


*BIT2,@TCSR 


2545 


01 1412 


052777 


000100 


170732 




BIS 


#BIT6,@TCSR 


2546 


011420 


052777 


000100 


170720 




BIS 


(S'BITB.iiRCSR 


2547 


011426 


005037 


011730 






CLR 


XMTCNT 


2548 


011432 


005037 


011726 






CLR 


RCVCNT 


2549 


011436 


005001 








CLR 


R1 


2550 


01 1440 


005000 








CLR 


RO 


2551 


011442 


012705 


011742 






MOV 


#BUF,R2 


2552 


011446 


005077 


170702 






CLR 


fTBUF 


2553 


011452 


004737 


012242 






JSR 


PC.WRPSW 


2554 


011456 


000140 










.WORD 140 


2555 
















2556 


011460 


062700 


000000 




2$: 


ADD 


#0.R0 


2557 


01 1464 


062700 


000001 






ADD 


#1 ,R0 


2558 


011470 


001373 








BNE 


2$ 


2559 


011472 


032777 


000100 


170652 




BIT 


#BIT6,©TCSR 


2560 


011500 


001402 








BEQ 


3$ 


2561 


011502 


000005 








RESET 




2562 
















2563 


011504 


104107 








ERROR 


107 


2564 
















2565 


011506 


023737 


011730 


011726 


3$: 


CMP 


XMTCNT, RCVCNT 


2566 


01 1514 


001402 








BEQ 


4$ 


2567 


011516 


000005 








RESET 




2568 
















2569 


011520 


104110 








ERROR 


110 


2570 
















2571 
















2572 
















2573 

















ltlltl««>((*Dc!)l*,|,**** 



TEST DL11-W LOGIC BY EXERCISING THE XMIT, RECEIVE, & CLOCKCIF AVAILABLE) 

*****'^*-^'>-'^-^<^'>-'-*#it,**it,*4<* ******** ^^^^^^^^^^^^^i^^^it'^ 

;CLEAR EVERYTHING 
;SET PRIORITY TO 7 

;SAVE XMIT VECTOR 

;SAVE RECEIVE VECTOR 

;SAVE CLOCK VECTOR 

;SAVE XMIT PSW VECTOR 

;SAVE RECEIVE PSW VECTOR 

;SAVE CLOCK PSW VECTOR 

; POINT TRANSMIT VECTOR TO TRANSMIT ROUTINE 

;ALLOW INTERRUPTS AFTER XMIT INTERRUPT 

; POINT RECEIVE VECTOR TO RECEIVE ROUTINE 

JALLOW INTERRPUTS AFTER RCVR INTERRUPT 

;IS CONSOLE UNDER TEST? 

;IF NOT SKIP CLOCK SET UP 

;IF YES. ARE CLOCK TEST DISABLED? 

;IF YES, SKIP CLOCK SET UP 

; POINT VECTOR TO CLOCK INTERRUPT ROUTINE 

;ALLOW INTERRUPTS AFTER CLOCK INTERRUPT 

{ENABLE CLOCK INTERRUPTS 

;SET MAINTENANCE WRAP 

;ENABLE TRANSMIT INTERRUPTS 

;ENABLE RECEIVE INTERRUPTS 

;CLEAR XMIT INTERRUPT COUNTER 

;CLEAR RCV INTERRUPT COUNTER 

;CLEAR A REGISTER FOR TEST DATA USE 

;CLEAR TIMER 

; POINT R2 TO RECEIVE DATA STORAGE 

;SEND FIRST CHARACTER 

;SET PSW TO PRIORITY 3 

JWAIT FOR INTERRUPTS 

;ADD INSTRUCTIONS ARE USED TO LENGTHEN LOOP TIME 

; TO COVER THE SLOWEST BAUD RATE ON THE FASTEST CPU 

;FINISHED ENTIRE TRANSMISSION 

;BR. IF INTERRPUTS ARE DISABLED (FINISHED) 

;CLEAR EVERYTHING 

{TRANSMIT INTERRUPT TIMEOUT IN MAIN. DATA TEST 

{COMPARE THE NUMBER OF INTERRUPTS 
;BR, IF EQUAL 
{CLEAR EVERYTHING 

{RECEIVER DID NOT GET FULL TRANSMISSION 
{ IF RCVCNT=0, NO DATA RECEIVED 
{ IF RCVCNT = ?, THEN (XMTC;>JT-RCVCNT) 
EQUALS THE NO. OF INTERRUPTS LOST. 
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2574 








2575 








2576 


011522 


005737 


002336 


2577 


011526 


001410 




2578 


011530 


032777 


000100 167302 


2579 


011536 


001004 




2580 


01 1540 


005737 


011732 


2581 


011544 


001001 




2582 








2583 


011546 


104113 




2584 








2585 


011550 


000005 




2586 


011552 


012700 


011742 


2587 


011556 


005001 




2588 


011560 


022001 




2589 


011562 


001005 




2590 


011564 


105201 




2591 


011566 


032701 


000040 


2592 


011572 


001772 




2593 


011574 


000405 




2594 








2595 


011576 


014037 


001026 


2596 


011602 


010137 


001024 


2597 


011606 


104111 




2598 








2599 


011610 


010377 


170546 


2600 


011614 


01 0477 


170536 


2601 


011620 


010577 


170564 


2602 


011624 


013777 


011734 170532 


2603 


011632 


013777 


011736 170520 


2604 


011640 


013777 


011740 17054^ 


2605 


011646 


000501 




2606 








2607 


011650 


005237 


011730 


2608 


011654 


105201 




2609 


011656 


032701 


000040 


2610 


011662 


001404 




2611 


011664 


042777 


000100 170460 


2612 


011672 


000402 




2613 


011674 


110177 


170454 


2614 


011700 


005000 




2615 


011702 


000002 




2616 








2617 


011704 


017722 


170440 


2618 


01 1710 


005237 


011726 


2619 


011714 


005000 




2620 


011716 


000002 




2621 








2622 


01 1720 


005237 


011732 


2623 


011724 


000002 




2624 








2625 


011726 


000000 




2626 


011730 


000000 




2627 


011732 


000000 




2626 


011734 


000000 




2629 


011736 


000000 





4$: 


TST 


CTSTFL 




BEQ 


5$ 




BIT 


#BIT6,®SWR 




BNE 


5$ 




TST 


CLKCNT 




BNE 


5$ 




ERROR 


113 


5$: 


RESET 






MOV 


#BUF,R0 




CLR 


R1 


COMP: 


CMP 


(R0)+,R1 




BNE 


6$ 




INCB 


R1 




BIT 


#BIT5.R1 




BEQ 


COMP 




BR 


7$ 


6$: 


MOV 


-(RO),$BDDAT 




MOV 


R1 ,$GDDAT 




ERROR 


111 


7$: 


MOV 


R3,@TVECT 




MOV 


R4,@RVECT 




MOV 


R5,@RTCVT 




MOV 


STPSW, ®TPSW 




MOV 


SRPSW, PRPSW 




MOV 


SCPSW,@RTCPSW 




BR 


ENDEV 


XMIT: 


INC 


XMTCNT 




INCB 


Rl 




BIT 


#BIT5,R1 




BEQ 


XCONT 




BIC 


#BIT6,@TCSR 




BR 


XRET 


XCONT: 


MOVB 


RI.PTBUF 


XRET: 


CLR 
RTI 


RO 


RCV: 


MOV 


®'RBUF,(R2)-»- 




INC 


RCVCNT 




CLR 


RO 




RTI 




CLK: 


INC 
RTI 


CLKCNT 


RCVCNT: 


.WORD 





XMTCNT: 


• WORD 





CLKCNT: 


.WORD 





STPSW: 


• WORD 





SRPSW: 


.WORD 






EXERCISING THE XMIT . RECEIVE . & CLOCK(IF AVAILABLE) SIMULTAN 



{IS CONCOLE UNDER TEST? 

{IF NOT, SKIP CLOCK COUNT CHECK 

{IF YES, ARE CLOCK TESTS DISABLED? 

{IF YES. SKIP CLOCK COUNT CHECK 

{CHECK FOR AT LESST ONE CLOCK INTERRUPT 

{BR IF INTERRUPTS OCCURRED 

{NO CLOCK INTERRUPTS IN EXERCISER 

{CLEAR EVERYTHING 

{LOAD RECEIVED DATA POINTER TO RO 

{SET UP REGISTER FOR COMPARISON 

{COMPARE XMIT & RCV DATA 

{BR, IF NOT EQUAL 

{INCREMENT COMPARE DATA 

{FINISHED CHECKING RECEIVED DATA? 

{BR, IF NOT FINISHED 

{BR TO END OF TEST 

{STORE BAD DATA FOR ERROR REPORT 
{STORE GOOD DATA FOR ERROR REPORT 
{DATA COMPARE ERROR IN EXERCISER 

{RESTORE XMIT VECTOR 

{RESTORE RECEIVE VECTOR 

{RESTORE CLOCK VECTOR 

{RESTORE XMIT PSW VECTOR 

{RESTORE RECEIVE PSW VECTOR 

{RESTORE CLOCK PSW VECTOR 

{BR TO END OF DEVICE TEST ROUTINE 

{INCREMENT XMIT INTERRUPT COUNTER 

{INCREMENT TEST DATA 

{SEND DATA PATTERN FROM 00 — > 37 

{BR, IF MORE DATA TO BE SENT 

{CLEAR XMIT INTERRUPT ENABLE 

{RETURN, WITHOUT SENDING ANY MORE DATA 

{SEND NEW CHARACTER 

{CLEAR TIMER 

{RETURN 

{STORE RECEIVED DATA 

{INCREMENT RCV INTERRUPT COUNTER 

{CLEAR TIMER 

{RETURN 

{INCREMENT CLOCK INTERRUPT COUNT 
{RETURN 
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T45 TEST DL11- 



5EQ 0066 

LOGIC BY EXERCISING THE XMIT. RECEIVE, & CLOCKCIF AVAILABLE) SIMULTAN 



2630 011740 

2631 011742 
2632 



000000 
000044 



SCPSW: 
BUF: 



• WORD 
.BLKW 




44 
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2633 
2634 
2635 
2636 
2637 
2638 
263S 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 



;END OF DEVICE PASS ROUTINE 



012052 
012056 
012062 
012070 
012072 
012076 



005037 
005237 
023737 
001404 
005037 
000137 



001002 
001076 
002342 

002336 
003500 



012102 
012102 
012104 
012110 
012114 
012122 
012124 
012126 
012130 
012132 
012134 
012136 
012142 
012146 
012150 
012152 
012154 
012156 
012160 
012162 
012162 
012164 
012166 

012172 
012200 



000004 
005037 
005237 
042737 
005327 
000001 
003015 
012737 
000001 
012124 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
012206 
377 
012172 
005015 
040520 



CLR 


STSTNM 


INC 


$DEVCT 


CMP 


TMP2,$DEVCT 


BEO 


$EOP 


CLR 


CTSTFL 


JMP 


TSTDEV 



; CLEAR TEST NO. COUNT FOR SCOPE ROUTINE 

INCREMENT DEVICE COUNTER 

;ALL DEVICES TESTED 

;BR, IF YES 

; CLEAR CONSOLE UNDER TEST FLAG 

;G0 TEST NEXT DEVICE 



.SBTTL END OF PASS ROUTINE 



^INCREMENT THE PASS NUMBER ($PASS) 
^IF THERES A MONITOR GO TO IT 
*lf THERE ISN'T JUMP TO GOAGIN 



riiiit:^!* ****** *^****^* 



001002 
001074 
100000 001074 



012172 
000042 



SENDCT: 
$GET42: 
SENDAD: 

SDOAGN: 

SRTNAD: 
SENULL: 



047105 
051523 



020104 
000040 



SCOPE 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

MOV 

BEO 

RESET 

dSR 

NOP 

NOP 

NOP 

UMP 

.WORD 

.BYTE 

.EVEN 

.ASCIZ 



STSTNM 

$PASS 

#100000, $PASS 

(PC) + 

1 

SDOAGN 

(PC)+,@(PC)+ 



,ENDMG 

@#42,R0 

SDOAGN 

PC,(R0) 



; ;ZERO THE TEST NUMBER 
;; INCREMENT THE PASS NUMBER 
;; DON'T ALLOW A NEG. NUMBER 
; ;LOOP? 

; ;YES 

; ; RESTORE COUNTER 



;TYPE "END PASS" 
;GET MONITOR ADDRESS 
; BRANCH IF NO MONITOR 
;CLEAR THE WORLD 
;G0 TO MONITOR 
;SAVE ROOM 
;FOR 
; ACT 11 



; ; RETURN 

;;NULL CHARACTER STRING 
<CR><LF>/END PASS / 



@(PC)+ 
GOAGIN 
-1 ,~1 ,0 
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END OF PASS ROUTINE 



SEQ 0068 



2678 








2679 


012206 


005037 


001076 


2680 


012212 


022737 


000001 


2681 


012220 


001004 




2682 


012222 


012706 


001000 


2683 


012226 


000137 


003622 


2684 








2685 


012232 


005037 


001100 


2686 


012236 


000137 


003424 


2687 








2688 


012242 


01 1646 




2689 


012244 


013616 




2690 


012246 


062746 


000002 


2691 


012252 


000002 




2692 








2593 








2694 








2695 


012254 


012600 




2696 


012256 


162700 


000004 


2697 


012262 


010037 


012302 


2698 


012266 


016637 


000002 


2699 


012274 


104112 




2700 








2701 


012276 


000000 




2702 


012300 


000000 




2703 


012302 


000000 




2704 









GOAGIN: 


CLR 


SDEVCT 




CMP 


#1 ,TMP2 




BNE 


RSTRT 




MOV 


#1000, SP 




UMP 


TST1 


RSTRT: 


CLR 


$UNIT 




JMP 


BEGIN 



MOV(SP),-{SP) 

MOV fCSPj+.CSP) 

ADD #2,-(SP) 

RTI 



-.CLEAR DEVICE COUNT 

;IS THERE ONLY ONE DEVICE UNDER TEST? 

;BR, IF NOT 

PRESET STACK POINTER 
;G0 DO ANOTHER PASS 

;CLEAR UNIT NUMBER 



COPY RETUN PC 

MOVE NEW PSW TO STACK 

ADJUST dSR RETURN 

POP RETURN PC & NEW PSW 



;SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 

;GET ADDRESS OF TRAP VECTOR + 4 

; ADJUST TO POINT TO TRAP ADDRESS 

; STORE TRAP OR INTERRUPT ADDRESS 

;GET PC WHERE TRAP OR INTERRUPT OCCURRED 

; REPORT ERROR 



MOV 


(SP)+,RO 


SUB 


#4,R0 


MOV 


RO.BDVECT 


MOV 


2(SP),0LDPC 


ERROR 


112 



HALT 
OLDPC: .WORD 
BDVECT: .WORD 



; PROGRAM MUST BE RESTARTED AT THIS POINT 
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END OF PASS ROUTINE 



SEQ 0069 



2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 



012304 
012304 
012310 
012312 
012320 
012324 
012330 
012336 
012344 
012352 
012354 
012360 
012364 
012364 
012372 
012374 
012402 
012406 
012407 
012410 
012412 
012416 
012420 
012422 
012424 
012432 
012434 
012440 
012444 
012446 
012452 
012452 
012460 
012462 
012464 
012464 



105237 
001775 
013777 
005237 
01 1637 
162737 
117737 
032777 
001004 
004737 
104401 

122737 
001007 
113737 
004737 
000 
000 
000777 
005777 
100001 
000000 
104406 
032777 
001402 
013716 
005737 
001402 
013716 

022737 
001001 
000000 



001003 

001002 
001012 
001016 
000002 
166454 
020000 

012466 
001063 



001014 
013170 



!» « 1)1 1«< « « sK 4 



-THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

'SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 

'AND GO TO SERRTYP ON ERROR 

'THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



SW15 = 




HALT ON ERROR 


SW13 = 




INHIBIT ERROR TYPEOUTS 


SW09 = 




LOOP IN ERROR 


CALL 








ERROR 


N ;;ERROR=EMT AN 


***** 


n******* 





$ error: 
7$: 



001016 
001014 
166466 



001106 
012406 



22$: 
2$: 



001000 166406 



001010 
001060 



012152 000042 



INCB 

BEO 

MOV 

INC 

MOV 

SUB 

MOVB 

BIT 

BNE 

dSR 

TYPE 

CMPB 

BNE 

MOVB 

JSR 

.BYTE 

.BYTE 

BR 

TST 

BPL 

HALT 

CKSWR 

BIT 

BEO 

MOV 

TST 

BEO 

MOV 

CMP 
BNE 
HALT 



SERFLG 

7$ 

STSTNM, ©DISPLAY 

SERTTL 

{SP),$ERRPC 

#2,$ERRPC 

@$ERRPC.$ITEMB 

#BIT13,®'SWR 

20$ 

PC,$ERRTYP 

,$CRLF 

#APTENV,$ENV 

2$ 

$ITEMB,21$ 

PC,$ATY4 





22$ 

®SWR 

3$ 



#BIT09,@>SWR 

4$ 

$LPERR, (SP^ 

$ESCAPE 

5$ 

$ESCAPE,(SP) 

#$ENDAD,@#42 
6$ 



*********** 



;SET THE ERROR FLAG 

; DON'T LET FLAG GO TO ZERO 

; DISPLAY TEST NUMBER AND ERROR FLAG 

; INCREMENT ERROR COUNT 

;GET ADDRESS OF ERROR INSTRUCTION 

; STRIP AND SAVE THE ERROR ITEM CODE 

;SKIP TYPEOUT IF SET 

;SKIP TYPEOUTS 

;G0 TO USER ERROR ROUTINE 



;RUNNING IN APT MODE 

;N0. SKIP APT ERROR REPORT 

;SET ITEM NUMBER AS ERROR NUMBER 

; REPORT FATAL ERROR TO APT 



;APT ERROR LOOP 

;HALT ON ERROR 

;SKIP IF CONTINUE 

;HALT ON ERROR! 

;TEST FOR CHANGE IN SOFT-SWR 

;LOOP ON ERROR SWITCH SET? 

;BR IF NO 

; FUDGE RETURN FOR LOOPING 

; CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

; FUDGE RETURN ADDRESS FOR ESCAPE 

;ACT-11 AUTO-ACCEPT? 

;BR IF NJ 

;YES 
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END OF PASS ROUTINE 



SEO 0070 



2755 








2756 








2757 








2758 








2759 








2760 








2761 








2762 








2763 


012466 






2764 


012466 


104401 


001063 


2765 


012472 


010046 




2766 


012474 


005000 




2767 


012476 


153700 


001014 


2768 


012502 


001004 




2769 








2770 


012504 


013746 


001016 


2771 








2772 


012510 


104402 




2773 


012512 


000426 




2774 


012514 


005300 




2775 


012516 


006300 




2776 


012520 


006300 




2777 


012522 


006300 




2778 


012524 


062700 


001146 


2779 


012530 


012037 


012540 


2780 


012534 


001404 




2781 


012536 


104401 




2782 


012540 


000000 




2783 


012542 


104401 


001063 


2784 


012546 


012037 


012556 


2785 


012552 


001404 




2786 


012554 


104401 




2787 


012556 


000000 




2788 


012560 


104401 


001063 


2789 


012564 


01 1000 




2790 


012566 


001004 




2791 


012570 


012600 




2792 


012572 


104401 


001063 


2793 


012576 


000207 




2794 


012600 






2795 


012600 


013046 




2796 


012602 


104402 




2797 


012604 


005710 




2798 


012606 


001770 




2799 


012610 


104401 


012616 


2800 


012614 


000771 




2801 


012616 


020040 


000 


2802 




012622 




2803 









.SBTTL ERROR MESSAGE TVPEOUT ROUTINE 

*THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH' 
♦ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" (SERRTB) , 
*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



["CARRIAGE RETURN" a "LINE FEED" 

;SAVE RO 

;PICKUP THE ITEM INDEX 

;IF ITEM NUMBER IS ZERO, JUST 

;TYPE THE PC OF THE ERROR 

;SAVE SERRPC FOR TYPEOUT 

; ERROR ADDRESS 

;G0 TYPE — OCTAL ASCIKALL DIGITS) 

;GET OUT 

lADJUST THE INDEX SO THAT IT WILL 

; WORK FOR THE ERROR TABLE 



SERRTYP: 




TYPE 


,$CRLF 


MOV 


RO,-(SP) 


CLR 


RO 


BIS8 


@)#$ITEMB,RO 


BNE 


1$ 



2$: 
3$: 

4$: 
5$: 
6$: 



SERRPC, -(SP) 



TYPOC 




BR 


6$ 


DEC 


RO 


ASL 


RO 


ASL 


RO 


ASL 


RO 


ADD 


#$ERRTB.RO 


MOV 


(R0)+.2$ 


BEO 


3$ 


TYPE 




.WORD 





TYPE 


.SCRLF 


MOV 


(R0)+,4$ 


BEO 


5$ 


TYPE 




.WORD 





TYPE 


, SCRLF 


MOV 


(RO),RO 


BNE 


7S 


MOV 


{SP)+,RO 


TYPE 


.SCRLF 


RTS 


PC 


MOV 


@(RO)+.-(S 


TYPOC 




TST 


(RO) 


BEO 


6$ 


TYPE 


,8$ 


BR 


7$ 


.ASCIZ 


/ / 


.EVEN 





ABLE POINTER 

"ERROR MESSAGE" POINTER 
•• PEOUT IF NO POINTER 
HE "ERROR MESSAGE" 

MESSAGE" POINTER GOES HERE 
AGE RETURN" & "LINE FEED" 

DATA HEADER" POINTER 
YPEOUT IF 
HE "DATA HEADER" 
HEADER" POINTER GOES HERE 
AGE RETURN" & "LINE FEED- 



FORM 

PICKUP 

SKIP T 

TYPE T 

"ERROR 

"CARRI 

PICKUP 

SKIP T 

TYPE T 

"DATA 

"CARRI 

PICKUP "DATA TABLE" 

GO TYPE THE DATA 

RESTORE RO 

"CARRIAGE RETURN" & 

RETURN 

SAVE @(R0)+ FOR TYPEOUT 

GO TYPE — OCTAL ASCIKALL DIGITS) 

IS THERE ANOTHER NUMBER? 

BR IF NO 

TYPE TW0(2) SPACES 

LOOP 

TW0(2) SPACES 



POINTER 



'LINE FEED" 
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ERROR MESSAGE TYPEOUT ROUTINE 



SEQ 0071 



2804 
2905 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 



POWER DOWN AND UP ROUTINES 
;*POWER DOWN ROUTINE 



41 4<* *««■)<«« 



012622 
012630 
012636 
012640 
012642 
012644 
012646 
012650 
012652 
012656 
012662 
012670 
012672 



012674 
012702 
012706 
012712 
012714 
012716 
012720 
012722 
012724 
012726 
012734 
012742 
012746 
012752 
012754 
012756 
012760 
012762 
012764 
012766 
012770 
012776 



i|<«««i»#4i4i!|iiX!jiiic«i»>i<«>t> 



012737 012762 

012737 000340 

010046 

010146 

010246 

010346 

010446 

010546 

017746 166162 

010637 012766 

012737 012674 

000000 

000776 



000024 
000026 



012737 
013706 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
005037 
005237 
001375 
104401 
012770 
000002 
000000 
000776 
000000 
005015 
000122 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



#$ILLUP,@#PWRVEC ;SET FOR FAST UP 
#340,§'#PWRVEC+2 ;PRI0:7 



RO,-(SP) 

R1 ,-(SP) 

R2,-(SP) 

R3,-(SP) 

R4,-(SP) 

R5,-(SP) 

®>SWR,-(SP) 

SP,$SAVR6 



;PUSH RO ON STACK 

;PUSH R1 ON STACK 

;PUSH R2 ON STACK 

;PUSH R3 ON STACK 

;PUSH R4 ON STACK 

;PUSH R5 ON STACK 

;PUSH PSWR ON STACK 

JSAVE SP 



#SPWRUP,®#PWRVEC ;SET UP VECTOR 
;HANG UP 



012762 
012766 
166126 



012622 
000340 
012766 
012766 



000024 
000026 



047520 042527 



J ; « 41 X< ))< 4< « * * »< >» * * ♦ K 

;*POWER 

J • i)< Diiti** **4< *)(<>*■«« X 

SPWRUP: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 
1$: INC 

BNE 

TYPE 
Spwrmg: .word 

RTI 
SILLUP: HALT 

BR 
$SAVR6: 
SPOWER: .ASCIZ 



UP ROUTINE 

#$ILLUP,®#PWRVEC 

SSAVR6,SP 

(SP)+,@SWR 

(SP)+,R5 

(SP)+,R4 

(SP)+,R3 

(SP)+.R2 

(SP)+,R1 

(SP)+,R0 

#$pwrdn,@#pwrvec 

#340,@#PWRVEC+2 

$SAVR6 

SSAVRB 

1$ 

SPOWER 

.-2 

<15><12>"P0WER'' 



^ie:^:**************'^' 



>)t>l<«4i«i)t««iti>»«i«ii«i« 



;SET FOR FAST DOWN 

GET SP 

POP STACK INTO @SWR 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0:7 

WAIT LOOP FOR THE TTY 

WAIT FOR THE INC 

OF WORD 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

THE POWER UP SEQUENCE WAS STARTED 

BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 



sm 
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SEO 0072 



2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 



013000 

013000 104406 

013002 032777 

013010 001052 

013012 000416 



013014 
013020 
013026 
013032 
013036 
013040 
013042 
013046 
013050 
013050 
013054 
013056 
013064 
013066 
013074 
013076 
013102 
013106 
013114 
013120 
013124 
013130 
013136 
013144 
013150 



013746 
012737 
005737 
012637 
000421 
022626 
012637 
000407 

105737 
001412 
032777 
001404 
013737 
000420 
105037 
105237 
113737 
01 1637 
01 1637 
005037 
112737 
013777 
013716 
000002 



001000 

001010 

001003 
001002 
001002 
001006 
001010 
001060 
000001 
001002 
001006 



.SBTTL SCOPE HANDLER ROUTINE 

♦THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
♦AND LOAD THE TEST NUMBER ( STSTNM) INTO THE DISPLAY REG. ( DISPLAY<7:0> ) 
*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5: 08> 
•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
*SW14=1 LOOP ON TEST 
♦SW09=1 LOOP ON ERROR 

♦ CALL 

* SCOPE ;;SCOPE=IOT 



040000 166030 1$: 



000004 
013040 
177060 
000004 



SSCOPE: 

CKSWR 

BIT 

BNE 

;*'####START OF 
$XTSTR: BR 

MOV 

MOV 

TST 

MOV 

BR 
5$: CMP 

MOV 

BR 
6$: ;####*END OF 



2$: 



4$: 
SSVLAD: 



001015 
165676 



TSTB 

BEO 

BIT 

BEO 

MOV 

BR 

CLRB 

INCB 

MOVB 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

RTI 



)S(BIT14,@SWR 
$OVER 
CODE FOR THE XOR 
6$ 

@#ERRVEC,-(SP) 

Ai5$,@#ERRVEC 

@#177060 

(SP)+,#*ERRVEC 

SSVLAD 

(SP)+.(SP)+ 

(SP)+,@#ERRVEC 

7$ 

CODE FOR THE XOR 

SERFLG 

SSVLAD 

#BIT09,@SWR 

4$ 

SLPERR.SLPADR 

SOVER 

SERFLG 

STSTNM 

STSTNM.STESTN 

(SP) .SLPADR 

(SP),$LPERr 

SESCAPE 

#1 .SERMAX 

STSTNM, ©DISPLAY 

SLPADR, (SP) 



;;TEST FOR CHANGE IN SOFT-SWR 
;;LOOP ON PRESENT TEST? 
; ;YES IF SW14=1 

;IF RUNNING ON THE "XOR" TESTER CHANGE 

;THIS INSTRUCTION TO A "NOP" (N0Px240) 

;SAVE THE CONTENTS OF THE ERROR VECTOR 

;SET FOR TIMEOUT 

;TIME OUT ON XOR? 

; RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

;CLEAR THE STACK AFTER A TIME OUT 

; RESTORE THE ERROR VECTOR 

JLOOP ON THE PRESENT TEST 

TESTER***'/^^ 

;HAS AN ERROR OCCURRED? 

;BR IF NO 

;LOOP ON ERROR? 

;BR IF NO 

;SET LOOP ADDRESS TO LAST SCOPE 

; ;ZERO THE ERROR FLAG 

; ; COUNT TEST NUMBERS 

; ;SET TEST NUMBER IN APT MAILBOX 

;;SAVE SCOPE LOOP ADDRESS 

;;SAVE ERROR LOOP ADDRESS 

;; CLEAR THE ESCAPE FROM ERROR ADDRESS 

;;ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 

;;DISPLAY TEST NUMBER 

;; FUDGE RETURN ADDRESS 

;; FIXES OS 
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SCOPE HANDLER ROUTINE 



SEO 0073 





2896 




















2897 










■ • if !t: iHii^ If), ^, iHf Jt: ^L ^f 






2898 










-SBTTL 


APT COMMUNICATIONS ROUTINE 




2899 
















2900 




















2901 


013152 


112737 


000001 


013416 


SATYi: 


MOVB 


#1 .SFFLG 


;T0 REPORT FATAL ERROR 




2902 


013160 


112737 


000001 


013414 


$ATY3: 


MOVB 


#1 , SMFLG 


;T0 TYPE A MESSAGE 




2903 


013166 


000403 








BR 


SATYC 




^ 


2904 


013170 


112737 


000001 


013416 


SATY4: 


MOVB 


#1, SFFLG 


;T0 ONLY REPORT FATAL ERROR 


2905 


013176 








SATYC: 








Hip 


2906 


013176 


010046 








MOV 


RO,-(SP) 


JPUSH RO ON STACK 




2907 


013200 


01 0146 








MOV 


R1.-(SP) 


;PUSH R1 ON STACK 




2908 


013202 


105737 


013414 






TSTB 


SMFLG 


; SHOULD TYPE A MESSAGE? 




2909 


013206 


001450 








BEO 


5$ 


;IF not: BR 




2910 


013210 


122737 


000001 


001106 




CMPB 


#APTENV.SENV 


{OPERATING UNDER APT? 




2911 


013216 


001031 








BNE 


3$ 


; IF NOT: BR 




2912 


013220 


132737 


000100 


001107 




BITB 


#APTSPOOL.$ENVM 


; SHOULD SPOOL MESSAGE? 




2913 


013226 


001425 








BEQ 


3$ 


; IF NOT: BR 




2914 


013230 


017600 


000004 






MOV 


®4(SP),R0 


;GET MESSAGE ADDRESS 




2915 


013234 


062766 


000002 


000004 




ADD 


#2,4(SP) 


;BUMP RETURN ADDRESS 




2916 


013242 


005737 


001066 




1$: 


TST 


SMSGTYPE 


;SEE IF DONE W/ LAST XMISSION? 




2917 


013246 


001375 








BNE 


IS 


;IF not: WAIT 


m 


2918 


013250 


010037 


001102 






MOV 


RO.SMSGAD 


;PUT ADDRESS IN MAILBOX 




2919 


013254 


105720 






2$: 


TSTB 


(R0)4. 


;FIND END OF MESSAGE 




2920 


013256 


001376 








BNE 


2$ 






2921 


013260 


163700 


001102 






SUB 


$MSGAD,RO 


;SUB STAsT OF MESSAGE 




2922 


013264 


006200 








ASR 


RO 


;GET MESSAGE LENGTH IN WORDS 




2923 


013266 


010037 


001104 






MOV 


RO.SMSGLGT 


;PUT LENGTH IN MAILBOX 




2924 


013272 


012737 


000004 


001066 




MOV 


#4, SMSGTYPE 


;TELL APT TO TAKE MESSAGE 




2925 


013300 


000413 








BR 


5$ 






2926 


013302 


017637 


000004 


013326 


3$: 


MOV 


®4(SP),4$ 


;PUT MSG ADDR IN JSR LINKAGE 




2927 


013310 


062766 


000002 


000004 




ADD 


#2,4(SP) 


;BUMP RETURN ADDRESS 




2928 


013316 


013746 


177776 






MOV 


177776, -(SP) 


;PUSH 177776 ON STACK 




2929 


013322 


004737 


013420 






USR 


PCSTYPE 


;CALL TYPE MACRO 




2930 


013326 


000000 






4$: 


.WORD 









2931 


013330 








5$: 










2932 


013330 


105737 


013416 




lOS: 


TSTB 


SFFLG 


; SHOULD REPORT FATAL ERROR? 




2933 


013334 


001413 








BEO 


12$ 


;IF NOT: BR 




2934 


013336 


005737 


001106 






TST 


$ENV 


; RUNNING UNDER APT? 




2935 


013342 


001410 








BEO 


12$ 


;IF not: BR 




2936 


013344 


005737 


001066 




11$: 


TST 


SMSGTYPE 


; FINISHED LAST MESSAGE? 




2937 


013350 


001375 








BNE 


11$ 


;IF not: WAIT 


* 


2938 


013352 


017637 


000004 


001070 




MOV 


@4(SP).SFATAL 


;GET ERROR it 




2939 


013360 


005237 


001066 






INC 


SMSGTYPE 


;TELL APT TO TAKE ERROR 




2940 


013364 


062766 


000002 


000004 


12$: 


ADD 


#2,4(SP) 


;BUMP RETURN ADDRESS 




2941 


013372 


105037 


013416 






CLRB 


SFFLG 


;CLEAR FATAL FLAG 




2942 


013376 


105037 


013415 






CLRB 


SLFLG 


; CLEAR LOG FLAG 




2943 


013402 


105037 


013414 






CLRB 


SMFLG 


; CLEAR MESSAGE FLAG 




2944 


013406 


012601 








MOV 


(SP)+,R1 


;POP STACK INTO R1 




2945 


013410 


012600 








MOV 


(SP)+,RO 


;POP STACK INTO R1 




2946 


013412 


000207 








RTS 


PC 


; RETURN 




2947 


013414 


000 






SMFLG: 


.BYTE 









2948 


013415 


000 






SLFLG: 


.BYTE 





;LOG FLAG 




2949 


013416 


000 






SFFLG: 


.BYTE 





; FATAL FLAG 




2950 




















2951 




013420 








.EVEN 
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2952 


000200 


2953 


000001 


2954 


000100 


2955 


000040 


2956 
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APT COMMUNICATIONS ROUTINE 

APTSIZE-200 
APTENV=001 
APTSPOOL=100 
APTCSUPa040 



SEQ 0074 



.) 
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APT COMMUNICATIONS ROUTINE 



SEQ 0075 



2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 



013420 
013424 
013426 
013430 
013432 
013434 
013440 
013446 
013450 
013456 
013460 
013464 
013470 
013472 
013500 
013502 
013504 
013506 
013510 
013512 
013516 
013520 
013524 
013526 
013532 
013534 
013536 
013540 
013542 
013546 
013550 
013554 
013560 
013562 



105737 
10.0002 
000000 
000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001063 
105037 
000755 
004737 
123726 
001350 
013746 



013470 
013160 



000040 001107 



000002 
000011 
000200 



013632 
001056 



.SBTTL TYPE ROUTINE 

*RQUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
*N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
*N0TE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



CAl 


L: 


1) 


USING A TRAP INSTRUCTION 




TYPE .MESADR 


OR 






TYPE 




MESADR 



000002 
000001 



000100 001107 



61$: 
62$: 



60$: 
3$: 



5$: 
6$: 



013566 105366 000001 

013572 002770 

013574 004737 013632 



TSTB 

BPL 

HALT 

BR 

MOV 

MOV 

CMPB 

BNE 

BITB 

BEO 

MOV 

JSR 

.WORD 

BITB 

BNE 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CMPB 

BEO 

CMPB 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CMPB 

BNE 

MOV 

DECS 

BLT 

JSR 



$TPFLG 
1$ 

3$ 

RO,-(SP) 

@2(SP),R0 

#APTENV,$ENV 

62$ 

#APTSPOOL.$ENVM 

62$ 

R0,61$ 

PC,$ATY3 



#APTCSUP,$ENVM 

60$ 

(RO)+,-(SP) 

4$ 

(SP) + 

(SP)+,RO 

#2,(SP) 

#Hr. (SP) 

#CRLF,(SP) 

5$ 

(SP) + 



SCHARCNT 

2$ 

PC,$TYPEC 

$FILLC,(SP)+ 

2$ 

$NULL,-(SP) 

1(SP) 

6$ 

PCSTYPEC 



IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO. GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO, GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

; BRANCH IF NOT <CRLF> 

;POP <CR><LF> EQUIV 
;TYPE A CR AND LF 

; CLEAR CHARACTER COUNT 

;GET NEXT CHARACTER 

;60 TYPE THIS CHARACTER 

;IS IT TIME FOR FILLER CHARS.? 

;IF NO GO GET NEXT CHAR. 

;GET # OF FILLER CHARS. NEEDED 

;AND THE NULL CHAR. 

;DOES A NULL NEED TO BE TYPED? 

;BR IF NO— GO POP THE NULL OFF OF STACK 

;G0 TYPE A NULL 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-7a 11:41 



3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 
3066 
3067 
3068 



013600 
013604 



013606 
013612 
013616 
013624 
013626 
013630 
013632 
013636 
013640 
013646 
013654 
013656 
013662 
013664 
013672 
013674 
013676 
013700 



105337 013676 
000770 



013702 
013706 
013714 
013720 
013724 
013726 
013734 



11:44 PAGE 76 
TYPE ROUTINE 



DECS 
BR 



SEQ 0076 



112716 
004737 
132737 
001372 
005726 
000724 
105777 
100375 
116677 
122766 
001003 
105037 
000406 
122766 
001402 
105227 
000000 
000207 



000040 
013632 
000007 



000002 
000015 



013676 
000012 



013676 



165204 
000002 



SCHARCNT 
7$ 



-.HORIZONTAL TAB PROCESSOR 



8$: 
9$: 



000002 1$ 



MOVE 
JSR 
BITB 
BNE 
TST 
BR 
STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

CMPB 
BEQ 
INCB 
SCHARCNT: .WORD 
STYPEX: RTS 



#' .(SP) 

PC, STYPEC 

#7, SCHARCNT 

9$ 

(SP) + 

2$ 

@$TPS 

STYPEC 

2(SP),@$TPB 

#CR.2(SP) 

1$ 

SCHARCNT 

STYPEX 

#LF,2(SP) 

STYPEX 

{PC) + 



PC 



', ; DO NOT COUNT AS A COUNT 
; ; LOOP 



; REPLACE TAB WITH SPACE 

;TYPE A SPACE 

; BRANCH IF NOT AT 

;TAB STOP 

;POP SPACE OFF STACK 

;GET NEXT CHARACTER 

•.WAIT UNTIL PRINTER IS READY 

;LOAD CHAR TO BE TYPED INTO DATA REG. 

;IS CHARACTER A CARRIAGE RETURN? 

; BRANCH IF NO 

;YES--CLEAR CHARACTER COUNT 

;EXIT 

;IS CHARACTER A LINE FEED? 

JBRANCH IF YES 

; COUNT THE CHARACTER 

; CHARACTER COUNT STORAGE 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
♦OCTAL (ASCII) NUMBER AND TYPE IT. 

* STYPOS— ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
*CALL: 

* MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

* TYPOS ;;CALL FOR TYPEOUT 

« .BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ; ;M=1 OR 

* ;; 1=TYPE LEADING ZEROS 

* ; -.OsSUPPRESS LEADING ZEROS 

* STYPON— -ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE UST 
♦STYPOS OR STYPOC 

*CALL: 

* MOV NUM,-(SP) ;;NUMBER TO BE TYPED 

* TYPON ;;CALL FOR TYPEOUT 



kSTYPOC- 
^CALL: 



017646 
116637 
112637 
062716 
000406 
112737 
112737 



000000 
000001 
014127 
000002 

000001 
000006 



014125 
014127 



MOV 
TYPOC 

STYPOS: MOV 
MOVB 
MOVB 
ADD 
BR 

STYPOC: MOVB 
MOVB 



-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 



;NUMBER TO BE TYPED 
;CALL FOR TYPEOUT 



@(SP) ,-(SP) 

1(SP) .SOFILL 

(SP)+,$0M0DE+1 

#2.(SP) 

STYPON 

#1 .SOFILL 

#6,$0M0DE-H 



; PICKUP THE MODE 
;LOAD ZERO FILL SWITCH 
-.NUMBER OF DIGITS TO TYPE 
; ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 
;;SET FOR SIX(6) DIGITS 



.MAIN, MACY11 30A(1052) 19-APR-78 11:44 PAGE 77 

CZDLDC.P11 19-APR-78 11:41 BINARY TO OCTAL (ASCII) AND TYPE 



SEO 0077 



3069 


013742 


112737 


000005 014124 


3070 


013750 


010346 




3071 


013752 


010446 




3072 


013754 


010546 




3073 


013756 


113704 


014127 


3074 


0-13762 


005404 




3075 


013764 


062704 


000006 


3076 


013770 


110437 


014126 


3077 


013774 


1 1 3704 


014125 


3078 


014000 


016605 


000012 


3079 


014004 


005003 




3080 


014006 


006105 




3081 


014010 


000404 




3082 


014012 


006105 




3083 


014014 


006105 




3084 


014016 


006105 




3085 


014020 


010503 




3086 


014022 


006103 




3087 


014024 


105337 


014126 


3088 


014030 


100016 




3089 


014032 


042703 


177770 


3090 


014036 


001002 




3091 


014040 


005704 




3092 


014042 


001403 




3093 


014044 


005204 




3094 


014046 


052703 


000060 


3095 


014052 


052703 


000040 


3096 


014056 


110337 


014122 


3097 


014062 


104401 


014122 


3098 


014066 


105337 


014124 


3099 


014072 


003347 




3100 


014074 


002402 




3101 


014076 


005204 




3102 


014100 


000744 




3103 


014102 


012605 




3104 


014104 


012604 




3105 


014106 


012603 




3106 


014110 


016666 


000002 000004 


3107 


014116 


012616 




3108 


014120 


000002 




3109 


014122 


000 




3110 


014123 


000 




3111 


014124 


000 




3112 


014125 


000 




3113 


014126 


000000 




3114 









STYPON: 


MOVB 


#5, SOCNT 




MOV 


R3,-(SP) 




MOV 


R4,-(SP) 




MOV 


R5.-(SP) 




MOVB 


$0M0DE+1 .R4 




NEG 


R4 




ADD 


#6,R4 




MOVB 


R4. SOMODE 




MOVB 


SOFILL, R4 




MOV 


12(SP),R5 




CLR 


R3 


1$: 


ROL 


R5 




BR 


3$ 


2$: 


ROL 


R5 




ROL 


R5 




ROL 


R5 




MOV 


R5,R3 


3$: 


ROL 


R3 




DECB 


SOMODE 




BPL 


7S 




BIC 


#177770. R3 




BNE 


4S 




TST 


R4 




BEQ 


5$ 


4S: 


INC 


R4 




BIS 


#'0,R3 


5S: 


BIS 


#' .R3 




MOVB 


R3.8S 




TYPE 


,8S 


7$: 


DECB 


SOCNT 




BGT 


2S 




BLT 


6$ 




INC 


R4 




BR 


2S 


6S: 


MOV 


(SP)+.R5 




MOV 


(SP)+,R4 




MOV 


(SP)+,R3 




MOV 


2(SP),4(SP) 




MOV 


(SP)+,(SP) 




RTI 




as: 


.BYTE 







.BYTE 





SOCNT: 


.BYTE 





SOFILL 


.BYTE 





SOMODE 


.WORD 






;SET THE ITERATION COUNT 

;SAVE R3 

;SAVE R4 

;SAVE R5 

;GET THF NUMBER OF DIGITS TO TYPE 

; SUBTRACT IT FOR MAX. ALLOWED 

;SAVE IT FOR USE 

;GET THE ZERO FILL SWITCH 

; PICKUP THE INPUT NUMBER 

; CLEAR THE OUTPUT WORD 

; ROTATE MSB INTO "C 

;G0 DO MSB 

;FORM THIS DIGIT 



;GET LSB OF THIS DIGIT 

;TYPE THIS DIGIT? 

;BR IF NO 

-.GET RID OF JUNK 

-.TEST FOR 

;SUPPRESS THIS 0? 

;BR IF YES 

; DON'T SUPPRESS ANYMORE O'S 

;MAKE THIS DIGIT ASCII 

;MAKE ASCII IF NOT ALREADY 

;SAVE FOR TYPING 

;G0 TYPE THIS DIGIT 

; COUNT BY 1 

;BR IF MORE TO DO 

;BR IF DONE 

; INSURE LAST DIGIT ISN'T A BLANK 

;G0 DO THE. LAST DIGIT 

; RESTORE R5 

; RESTORE R4 

jRESTORE R3 

;SET THE STACK FOR RETURNING 

;RETURN 

{STORAGE FOR ASCII DIGIT 

JTERMINATOR FOR TYPE ROUTINE 

jOCTAL DIGIT COUNTER 

;ZERO FILL SWITCH 

JNUMBER OF DIGITS TO TYPE 
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BINARY TO OCTAL (ASCII) AND TYPE 



SEQ 007S 



3115 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 



.SBTTL TTY INPUT ROUTINE 



.ENABL LSB 



*iti>itiiminiin»m*****^ 



***4"¥*ii'*m**** 



014130 
014136 
014140 
014144 
014146 
014152 
014156 
014162 
014164 
014172 

014174 
014200 
014204 
014210 
014212 
014216 
014220 
014222 
014226 

014230 
014234 



014240 
014244 
01424S 
014252 
014256 



014260 
014264 
014266 
014272 
014274 
014302 
014306 
014312 
014320 
014322 
014330 
014332 



022737 
001074 
105777 
100071 
117746 
042716 
022726 
001062 
123727 
001456 

104401 
104401 
013746 
104402 
104401 
005046 
005046 
105777 
100375 

117746 
042716 



021627 
001005 
104401 
062706 
000757 



021627 
001022 
005766 
001403 
015677 
062706 
104401 
123727 
001003 
012777 
000002 
004737 



000176 001040 



164674 
177600 
000007 

001034 000001 



014655 
014662 
000176 



164612 
177600 



014650 
000006 



000015 

000004 

000002 
000006 
001063 
001035 

000100 

013632 



:mi^,i,m**** 



♦SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
♦ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 

♦SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
WHEN OPERATING IN TTY FLAG MODE. 



SCKSWR: CMP 
BNE 
TSTB 
BPL 
MOVB 
BIC 
CMP 
BNE 
CMPB 
BEQ 

TYPE 

Sgtswr: type 

MOV 

TYPOC 

TYPE 

19$: CLR 
CLR 

7$: TSTB 
BPL 



000001 
164514 



9$: 
20$: 



11$: 
14$: 



15$: 
16$: 



CMP 

BNE 

TYPE 

ADD 

BR 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 

RTI 

USR 



#SWREG,SWR 

15$ 

@$TKS 

15$ 

#$TKB,-(SP) 

i)'~C177,(SP) 

*7,(SP)+ 

15$ 

$AUT0B,#1 

15$ 

,$CNTLG 

,$MSWR 

SWREG,-(SP) 

,$MNEW 

-(SP) 

-(SP) 

@$TKS 

7$ 



MOVB #$TKB,-(SP) 
BIC #"C177,(SP) 



(SP),#25 

10$ 

,$CNTLU 

#6,SP 

19$ 



(SP).#15 

16$ 

4(SP) 

11$ 

2(SP),i»SWR 

#6,SP 

,$CRLF 

$INTAG,#1 

15$ 

#100,i>$TKS 

PC.STYPEC 



;;IS THE SOFT-SWR SELECTED? 

; ; BRANCH IF NO 

; jCHAR THERE? 

;;IF NO, DON'T WAIT AROUND 

; ;SAVE THE CHAR 

; ;STRIP-OFF THE ASCII 

; ; IS IT A CONTROL G? 

; ;N0, RETURN TO USER 

;;ARE WE RUNNING IN AUTO-MODE? 

; ; BRANCH IF YES 

;;ECHO THE CONTROL-G CG) 

;;TYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE—OCTAL ASCIKALL DIGITS) 

; ; PROMPT FOR NEW SWR 

; ICLEAR COUNTER 

; ;THE NEW SWR 

; ;CHAR THERE? 

; ;IF NOT TRY AGAIN 

; ;PICK UP CHAR 

; ;MAKE IT 7-BIT ASCII 



lis IT A CONTROL-U? 
[BRANCH IF NOT 
;YES. ECHO CONTROL-U ("U) 
I IGNORE PREVIOUS INPUT 
ILET'S TRY IT AGAIN 



;IS IT A <CR>? 

; BRANCH IF NO 

;YES. IS IT THE FIRST CHAR? 

; BRANCH IF YES 

;SAVE NEW SWR 

;CLEAR UP STACK 

;ECHO <CR> AND <LF> 

; RE-ENABLE TTY KBD INTERRUPTS? 

; BRANCH IF NOT 

; RE-ENABLE TTY KBD INTERRUPTS 

; RETURN 

;ECHO CHAR 
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3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 

3202 

3203 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 



014336 
014342 
014344 
014350 
014352 
014356 
014362 
014364 
014366 
014370 
014372 
014376 
014402 
014404 
014410 



014412 
014414 
014422 
014426 
014430 
014436 
014444 
014452 
014454 
014460 
014462 
014466 
014472 
01447C 
014500 
014502 
014510 
014512 
014520 
014522 
014530 



021627 
002420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



01 1646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 
000750 
026627 
002407 
026627 
003003 
042766 
000002 



000060 
000067 



000060 
000002 



000002 
177776 



000004 
164416 

164412 
177600 
000004 



164360 
177600 
000021 



000004 
000004 
000040 



; ;CHAR < 0? 

; ;BRANCH IF YES 

; ;CHAR > 7? 

; ; BRANCH IF YES 

; ;STRIP-OFF ASCII 

; ; IS THIS THE FIRST CHAR 

; ; BRANCH IF YES 

; ;N0, SHIFT PRESENT 

; ; CHAR OVER TO MAKE 

; ; ROOM FOR NEW ONE. 

; ;KEEP COUNT OF CHAR 

; ;SET IN NEW CHAR 

; ;GET THE NEXT ONE 

; ;TYPE ?<CR><LF> 

;; SIMULATE CONTROL-U 



♦THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
♦CALL: 

* RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

* RETURN HERE ;;CHARACTER IS ON THE STACK 

* ;;WITH PARITY BIT STRIPPED OFF 



CMP 


(SP),#60 


BLT 


18$ 


CMP 


(SP),^67 


BGT 


18$ 


BIC 


#60,(SP)+ 


TST 


2(SP) 


BEO 


17$ 


ASL 


(SP) 


ASL 


(SP) 


ASL 


(SP) 


INC 


2(SP) 


BIS 


-2(SP).(SP) 


BR 


7$ 


TYPE 


,$OUES 


BR 


20$ 


LSB 





m 



000004 
000004 
000023 



000140 
000175 
000004 



;rdchr: MOV 

MOV 
$: TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 
!$: TSTB 

BPL 

MOVB 

BIC 

CMP 

BNE 

BR 
$: CMP 

BLT 

CMP 

BGT 

BIC 
$: RTI 

; iti If * « >K Di Id * itc ;ji 4i « >| 

♦THIS ROUTINE 
♦call: 

* RDLIN 

* RETURN 



(SP),-(SP) 

4(SP),2(SP) 

®$TKS 

1$ 

@$TKB,4{SP) 

#'"C<177>,4( 

4(SP),#23 

3$ 

@$TKS 

2$ 

@$TKB,-(SP) 

#'^C177,(SP) 

(SP)+,#21 

2$ 

1$ 

4(SP),#140 

4$ 

4(SP),#175 

4$ 

#40.4(SP) 



014532 010346 

014534 012703 014640 



$RDLIN: 
1$: 



MOV 
MOV 



WILL INPUT A 



R3,-(SP) 
#$TTYIN.R3 



; ;PUSH DOWN THE PC 
; ;SAVE THE PS 
; ;WAIT FOR 
; ;A CHARACTER 
; ;READ THE TTY 
SP) ;;GET RID OF JUNK IF ANY 
; ;IS IT A CONTROL-S? 
; ; BRANCH IF NO 
;;WAIT FOR A CHARACTER 
; ;LOOP UNTIL ITS THERE 
; ;GET CHARACTER 
; ;MAKE IT 7-BIT ASCII 
; ;IS IT A CONTROL-0? 
; ;IF NOT DISCARD IT 
;;YES. RESUME 
; ;IS IT UPPER CASE? 
; ;BRANCH IF YES 
; ; IS IT A SPECIAL CHAR? 
; ; BRANCH IF YES 
; ;MAKE IT UPPER CASE 
; ;G0 BACK TO USER 

STRING FROM THE TTY 

;; INPUT A STRING FROM THE TTY 

;;ADDRESS OF FIRST CHARACTER WILL CE ON THE STACK 

;;TERMINATOR WILL BE A BYTE OF ALL O'S 

;;SAVE R3 
;;GET ADDRESS 
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SEQ 0080 



3227 


014540 


022703 


014650 




2$: 


CMP 


*$TTYIN+8.,R3 ; 


3228 


014544 


101405 








BLOS 


4$ ; 


3229 


014546 


104407 








RDCHR 




3230 


014550 


112613 








Move 


(SP)+,(R3) \ 


3231 


014552 


122713 


000177 




10$: 


CMPB 


#177, (R3) ; 


3232 


014556 


001003 








BNE 


3$ 


3233 


014560 


104401 


001062 




4$: 


TYPE 


,$OUES 


3234 


014564 


000763 








BR 


1$ ; 


3235 


014566 


11 1337 


014636 




3$: 


MOVB 


(R3),9$ ; 


3236 


014572 


104401 


014636 






TYPE 


,9$ 


3237 


014576 


122723 


000015 






CMPB 


#15,(R3)+ ; 


3238 


014602 


001356 








BNE 


2$ ; 


3239 


014604 


105063 


177777 






CLRB 


-1(R3) ; 


3240 


014610 


104401 


001064 






TYPE 


.$LF ; 


3241 


014614 


012603 








MOV 


(SP)+,R3 ; 


3242 


014616 


01 1646 








MOV 


(SP),-(SP) ; 


3243 


014620 


016666 


000004 


000002 




MOV 


4(SP).2{SP) ; 


3244 


014626 


012766 


014640 


000004 




MOV 


#$TTYIN.4(SP) 


3245 


014634 


000002 








RTI 




3246 


014636 


000 






9$: 


.BYTE 


; 


3247 


014637 


000 








• BYTE 


; 


3248 


014640 


000010 






STTYIN: 


.BLKB 


8. ; 


3249 


014650 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/~U/<15><12> ; 


3250 


014655 


136 


006507 


000012 


$CNTLG: 


.ASCIZ 


/-G/<15><12> ; 


3251 


014662 


005015 


053523 


020122 


$MSWR: 


.ASCIZ 


<15><12>/SWR a / 


3252 


014670 


020075 


000 










3253 


014673 


040 


047040 


053505 


SWNEW: 


.ASCIZ 


/ NEW M / 


3254 


014700 


036440 


000040 










3255 

















; BUFFER FULL? 

;BR IF YES 

;G0 READ ONE CHARACTER FROM THE TTY 

;GET CHARACTER 

;IS IT A RUBOUT 

;SKIP IF NOT 

;TYPE A '?' 

;CLEAR THE BUFFER AND LOOP 

;ECHO THE CHARACTER 

;CHECK FOR RETURN 

;LOOP IF NOT RETURN 

;CLEAR RETURN (THE 15) 

;TYPE A LINE FEED 

; RESTORE R3 

; ADJUST THE STACK AND PUT ADDRESS OF THE 

; FIRST ASCII CHARACTER ON IT 

;RETURN 

; STORAGE FOR ASCII CHAR. TO TYPE 

;TERMINATOR 

; RESERVE 8 BYTES FOR TTY INPUT 

JCONTROL "U" 

JCONTROL "G" 
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SEQ 0081 



3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 



014704 
014706 
014712 
014714 
014716 
014720 
014724 



014726 
014730 
014736 



014740 
014742 
014744 
014746 
014750 



010046 
016600 
005740 
11 1000 
006300 
016000 
000200 



01 1646 

016666 000004 

000002 



014726 
013420 
013726 
013702 
013742 



014752 014200 



014754 
014756 
014760 



014130 
014412 
014532 



.SBTTL TRAP DECODER 

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 

;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 

strap: 



MOV 


RO,-(SP) 


;SAVE RO 


MOV 


2(SP),R0 


;GET TRAP ADDRESS 


TST 


-(RO) 


; BACKUP BY 2 


MOVB 


(RO),RO 


;GET RIGHT BYTE OF TRAP 


asl 


RO 


; POSITION FOR INDEXING 


MOV 


$TRPAD(R0),RO 


; INDEX TO TABLE 


RTS 


RO 


;G0 TO ROUTINE 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



$TRAP2: MOV 
MOV 
RTI 



(SP).-(SP) 
4(SP),2(SP) 



; ;MOVE THE PC DOWN 
; ;MOVE THE PSW DOWN 
; ; RESTORE THE PSW 



.SBTTL TRAP TABLE 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 



ROUTINE 

.WORD 

STYPE 

$TYPOC 

STYPOS 

STYPON 



$TRAP2 
;;CALL»TYPE 
; ;CALL=TYPOC 
; ;CALL=TYPOS 
; ;CALL = TYPON 



TRAP+1{ 104401 ) 
TRAP+2( 104402) 
TRAP+3{ 104403) 
TRAP+4( 104404) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 



$GTSWR ;;CALL=GTSWR 



SCKSWR 
SRDCHR 
SROLIN 



; ;CALL=CKSWt< 
;;CALL»RDCHR 
;;CALL=RDLIN 



TRAP+5( 104405) GET SOFT-SWR SETTING 

TRAP+6( 104406) TEST FOR CHANGE IN SOFT-SWR 

TRAP+7( 104407) TTY TYPEIN CHARACTER ROUTINE 

TRAP+10( 104410) TTY TYPEIN STRING ROUTINE 
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SEQ 0083 



3300 










3301 










3302 










3303 










3304 










3305 










3306 










3307 


014762 








3308 


014762 


000005 






3309 


014764 


112777 


000052 


165402 


3310 


014772 


105777 


165370 




3311 


014776 


100375 






3312 


015000 


117777 


165364 


165366 


3313 


015006 


017700 


165356 




3314 


015012 


100023 






3315 


015014 


052701 


010000 




3316 


015020 


030100 






3317 


015022 


001403 






3318 


015024 


004737 


015106 




3319 


015030 


015134 






3320 


015032 


006301 






3321 


015034 


030100 






3322 


015036 


001403 






3323 


015040 


004737 


015106 




3324 


015044 


015145 






3325 


015046 


006301 






3326 


015050 


030100 






3327 


015052 


001403 






3328 


015054 


004737 


015106 




3329 


015060 


015157 






3330 


015062 


042700 


000200 




3331 


015066 


022700 


000003 




3332 


015072 


001337 






3333 


015074 


004737 


015106 




3334 


015100 


015172 






3335 


015102 


000000 






3336 


015104 


000726 






3337 










3338 










3339 


015106 


013600 






3340 


015110 


062746 


000002 




3341 


015114 


105777 


165252 




3342 


015120 


100375 






3343 


015122 


1 1 2077 


165246 




3344 


015126 


105710 






3345 


015130 


001371 






3346 


015132 


000207 






3347 










3348 


015134 


005015 


040520 


044522 


3349 


015142 


054524 


000 




3350 


015145 


015 


043012 


040522 


3351 


015152 


044515 


043516 


OOL 


3352 


015157 


015 


047412 


042526 


3353 


015164 


043122 


047514 


000127 


3354 


015172 


005015 


052123 


050117 


3355 


015200 


000 







.SBTTL ECHO TEST 

;*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 

;*AT THE CONSOLE 

;*THE TEST IS HALTED BY TYPING A CONTROL-C 

;*TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 



»!« IX «■«<«« « 



«)tl>i<#«l«l#)|t#«lil««««« 



MSG: 
wait: 



RESET 

MOVB 

TSTB 

BPL 

MOVB 

MOV 

BPL 

BIS 

BIT 

BEO 

JSR 

MPAR 

ASL 

BIT 

BEQ 

JSR 

MFR 

ASL 

BIT 

BEO 

USR 

MOR 

BIC 

CMP 

BNE 

JSR 

MSTOP 

HALT 

BR 



MOV 

ADD 

TSTB 

BPL 

MOVB 

TSTB 

BNE 

RTS 

.ASCIZ 

.ASCIZ 

-ASCIZ 



)i''*,@CTBUF 

©CRCSR 

2$ 

@CRBUF,@CTBUF 

PCRBUF.RO 

5$ 

#BIT12,R1 

R1 ,R0 

3$ 

PC, MSG 

R1 

R1 ,R0 
4$ 
PC, MSG 

R1 

R1 ,R0 
5$ 
PC, MSG 

(^BIT7,R0 
#3,R0 
2$ 
PC, MSG 



@(SP)+,RO 

*'2,-(SP) 

©CTCSR 

WAIT 

(RO)+,@CTBUF 

(RO) 

WAIT 

PC 



;CLEAR EVERYTHING 
;TRANSMIT PROMPT "*•• 
;WAIT FOR INPUT 

;ECHO INPUT 

;STORE INPUT 

;BR IF "ERROR"NOT SET 

;SET PARITY ERROR TEST MASK 

;CHECK FOR PARITY ERROR FLAG 

;BR IF NOT SET 

;REPORT PARITY ERROR 

;SHIFT MASK TO TEST "FR" FLAG 
;TEST FOR FRAMING ERROR FLAG 
;BR IF NOT SET 
;REPSORT FRAMING ERROR 

; SHIFT M.-.SK TO TEST "OR" FLAG 
;TEST FOR OVERFLOW ERROR 
;BR IF NOT SET 
; REPORT OVERFLOW ERROR 

;CLEAR ANY PARITY BIT 
;WAS INPUT CONTROL-C 
;BR IF NOT 
; REPORT PROGRAM STOP 

;END OF TEST HALT 

;AFTER END OF TEST HALT 

; PRESS CONTINUE TO RESTART ECHO TEST 

;PICK UP MESSAGE POINTER 
; ADJUST RETURN PC 
jWAIT FOR XMIT DONE 

;SEND CHARACTER 

;IS THIS END OF MESSAGE? 

;BR IF NOT 

; RETURN 



MSTOP: .ASCIZ 



<CR><LF>/PARITY/ 
<CR><LF>/FRAMING/ 
<CR><LF>/OVERFLOW/ 
<CR><LF>/STOP/ 



.MAIN. MACYIt 30A(1052) 19-APR-7a 
CZDLDC.P11 19-APR~78 11:41 



11:44 PAGE 83 
ECHO TEST 



SEQ 0083 



3356 








3357 








3358 




015202 




3359 








3360 








3361 








3362 








3363 








3364 








3365 








3366 








3367 








3368 








3369 








3370 


015202 


012701 


000040 


3371 


015206 


012700 


000040 


3372 


015212 


105777 


165154 


3373 


015216 


100375 




3374 


015220 


010177 


165150 


3375 


015224 


105201 




3376 


015226 


005300 




3377 


015230 


001370 




3378 


015232 


004737 


015106 


3379 








3380 


015236 


001063 




3381 


015240 


105777 


165122 


3382 


015244 


100404 




3383 


015246 


032701 


000200 


3384 


015252 


001353 




3385 


015254 


000754 




3386 








3387 


015256 


005077 


165106 


3388 


015262 


000000 




3389 


015264 


000746 





.SBTTL TERMINAL OUTPUT TEST 



*THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 

*THE OCTAL CODE 040 — > 377 

*32 CHARACTERS ARE PRINTED ON EACH LINE 

*THE PATTERN IS REPEATED EVERY THREE LINES 



****>¥*** 



itli(i«lte«4>>tt««*« 



OUTTST: 


MOV 


#40, R1 


1$: 


MOV 


#40, RO 


2$: 


TSTB 


@CTCSR 




BPL 


2$ 




MOV 


R1,#CTBUF 




INCB 


R1 




DEC 


RO 




BNE 


2$ 




JSR 


PC, MSG 




$CRLF 






TSTB 


@CRCSR 




BMI 


3$ 




BIT 


#BIT7,R1 




BNE 


OUTTST 




BR 


1$ 


3$: 


CLR 


@CRBUF 




HALT 






BR 


OUTTST 



;LOAD FIRST WRITABLE CHARACTER 
;LOAD CHAR COUNT PER LINE 
;WAIT FOR DONE 

; TRANSMIT A CHARACTER 
; INCREMENT CHARACTER CODE 
; DECREMENT CHAR COUNT 
;BR IF LINE NOT COMPLETE 
JSSUE CR.LINE FEED 



;ANY CHARACTER RECEIVED? 

;BR IF YES 

; FINISHED ONE PASS OF WRITABLE CHARACTERS? 

;BR IF YES 

;IF NOT WRITE NEXT LINE 

;CLEAR RECEIVER 

;STOP TEST 

; RESTART TEST IF CONTINUED 



.MAIN. MACY11 30A(1052) 19-APR-78 11:44 PAGE 84 
C2DLDC.P11 19-APR-78 11:41 TERMINAL OUTPUT TEST 



SEQ 00S4 



3390 










3391 










3392 


015266 


040503 


020116 


047516 


3393 


015274 


020124 


041501 


042503 


3394 


015302 


051523 


052040 


051503 


3395 


015310 


000122 






3396 


015312 


040503 


020116 


047516 


3397 


015320 


020124 


041501 


042503 


3398 


015326 


051523 


052040 


052502 


3399 


015334 


000106 






3400 


015336 


041524 


051123 


042040 


3401 


015344 


047117 


020105 


047516 


3402 


015352 


020124 


046103 


040505 


3403 


015360 


042522 


020104 


044527 


3404 


015366 


044124 


052040 


052502 


3405 


015374 


020106 


052506 


046114 


3406 


015402 


000 






3407 


015403 


124 


051503 


020122 


3408 


015410 


047504 


042516 


047040 


3409 


015416 


0521 17 


051440 


052105 


3410 


015424 


000 






341 1 


015425 


124 


051503 


020122 


3412 


015432 


047504 


042516 


047040 


3413 


015440 


052117 


051440 


052105 


3414 


015446 


053440 


052111 


020110 


3415 


015454 


042522 


042523 


000124 


3416 


015462 


040503 


020116 


047516 


3417 


015470 


020124 


041501 


042503 


3418 


015476 


051523 


051040 


051503 


3419 


015504 


000122 






3420 


015506 


040503 


020116 


047516 


3421 


015514 


020124 


041501 


042503 


3422 


015522 


051523 


051040 


0525C1 


3423 


015530 


000106 






3424 


015532 


040503 


020116 


047516 


3425 


015540 


020124 


041501 


042503 


3426 


015546 


051523 


046040 


051513 


3427 


015554 


000 






3428 


015555 


102 


052111 


020060 


3429 


015562 


0431 17 


052040 


051503 


3430 


015570 


020122 


047516 


020124 


3431 


015576 


046103 


040505 


020122 


3432 


015604 


043101 


042524 


020122 


3433 


015612 


042522 


042523 


000124 


3434 


015620 


040503 


020116 


047516 


3435 


015626 


020124 


042523 


020124 


3436 


015634 


044502 


030124 


047440 


3437 


015642 


020106 


041524 


051123 


3438 


015650 


000 






3439 


015651 


103 


047101 


047040 


3440 


015656 


052117 


041440 


042514 


3441 


015664 


051101 


041040 


052111 


3442 


015672 


020060 


043117 


052040 


3443 


015700 


051503 


000122 





.ASCIZ /CAN NOT ACCESS TCSR/ 



.ASCIZ /CAN NOT ACCESS TBUF/ 



.ASCIZ /TCSR DONE NOT CLEARED WITH TBUF FULL/ 



.ASCIZ /TCSR DONE NOT SET/ 



.ASCIZ /TCSR DONE NOT SET WITH RESET/ 



.ASCIZ /CAN NOT ACCESS RCSR/ 



.ASCIZ /CAN NOT ACCESS RBUF/ 



3444 015704 042522 042523 020124 EM14: 

3445 015712 044504 020104 047516 



.ASCIZ /CAN NOT ACCESS LKS/ 



.ASCIZ /BITO OF TCSR NOT CLEAR AFTER RESET/ 



.ASCIZ /CAN NOT SET BITO OF TCSR/ 



.ASCIZ /CAN NOT CLEAR BITO OF TCSR/ 



.ASCIZ /RESET DID NOT CLEAR BITO OF TCSR/ 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 85 

TERMINAL OUTPUT TEST 



SEO 0085 



3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3454 
3465 
3466 
3467 
3468 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 



015720 
015726 
015734 
015742 
015745 
015752 
015760 
015766 
015774 
016002 
016010 
016016 
016024 
016032 
016040 
016041 
016046 
016054 
016062 
016070 
016074 
016102 
016110 
016116 
016124 
016132 
016135 
016142 
016150 
016156 
016164 
016172 
016200 
016201 
016206 
016214 
016222 
016230 
016236 
016244 
016252 
016260 
016266 
016267 
016274 
016302 
016310 
016316 
016322 
016330 
016336 
016344 
016352 
016360 
016363 



020124 
020122 
047440 
051 123 
102 
043117 
020122 
046103 
043101 
042522 
040503 
020124 
044502 
020106 
000 
103 
0521 17 
051101 
020062 
051503 
042522 
044504 
020124 
020122 
047440 
051 123 
102 
0431 17 
020122 
046103 
043101 
042522 
000 
130 
0471 1 1 
050125 
050040 
052111 
040503 
020124 
044502 
020106 
000 
103 
052117 
051101 
020066 
051503 
042522 
044504 
020124 
020122 
047440 
051123 
102 



046103 
044502 
020106 
000 
052111 
052040 
047516 
040505 
042524 
042523 
020116 
042523 
031124 
041524 

047101 
041440 
041040 
043117 
000122 
042523 
020104 
046103 
044502 
020106 
000 
052111 
052040 
047516 
040505 
042524 
042523 

044515 
042524 
020124 
044522 
020131 
020116 
042523 
033124 
041524 

047101 
041440 
041040 
043117 
000122 
042523 
020104 
046103 
044502 
020106 
000 
052111 



040505 
030124 
041524 

020062 
051503 
020124 
020122 
020122 
000124 
047516 
020124 
047440 
051123 

047040 
042514 
0521 11 
052040 

020124 
047516 
040505 
031124 
041524 

020066 
051503 
020124 
020122 
020122 
027524 

020124 
051122 
052101 
051117 
000067 
047516 
020124 
047440 
051123 

047040 
042514 
0521 11 
052040 

020124 
047516 
040505 
03312s 
041524 



020066 EM26: 



EM25: 



3501 016370 043117 051040 051503 



.ASCIZ /BIT2 OF TCSR NOT CLEAR AFTER RESET/ 



.ASCIZ /CAN NOT SET BIT2 OF TCSR/ 



.ASCIZ /CAN NOT CLEAR BIT2 OF TCSR/ 



•ASCIZ /RESET DID UOT CLEAR BIT2 OF TCSR/ 



.ASCIZ ;BIT6 OF TCSR NOT CLEAR AFTER RESET/ 



.ASCIZ /XMIT INTERRUPT AT PRIORITY 7/ 



.ASCIZ /CAN NOT SET BITS OF TCSR/ 



.ASCIZ /CAN NOT CLEAR BITS OF TCSR/ 



.ASCIZ /RESET DID NOT CLEAR BIT6 OF TCSR/ 



•ASCII /BIT6 OF RCSR NOT CLEAR AFTER RESET/ 



.MAIN, MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 
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TERMINAL OUTPUT TEST 



SEQ 0086 



3502 


016376 


020122 


047516 


020124 


3503 


016404 


046103 


040505 


020122 


3504 


016412 


043101 


042524 


020122 


3505 


016420 


042522 


042523 


000124 


3506 


016426 


041522 


051126 


044440 


3507 


016434 


0521 16 


051105 


052522 


3508 


016442 


052120 


053440 


052111 


3509 


016450 


020110 


051 120 


047511 


3510 


016456 


044522 


054524 


033440 


3511 


016464 


000 






3512 


016465 


103 


047101 


047040 


3513 


016472 


052117 


051440 


052105 


3514 


016500 


041040 


0521 11 


020066 


3515 


016506 


043117 


051040 


051503 


3516 


016514 


000122 






3517 


016516 


040503 


020116 


047516 


3518 


016524 


020124 


046103 


040505 


3519 


016532 


020122 


044502 


033124 


3520 


016540 


047440 


020106 


041522 


3521 


016546 


051123 


000 




3522 


016551 


103 


047101 


047040 


3523 


016556 


052117 


041440 


042514 


3524 


016564 


051101 


041040 


0521 11 


3525 


016572 


020066 


0431 17 


051040 


3526 


016600 


051503 


020122 


044527 


3527 


016606 


044124 


051040 


051505 


3528 


016614 


052105 


000 




3529 


01661 7 


102 


052111 


020066 


3530 


016624 


0431 17 


046040 


051513 


3 531 


016632 


047040 


052117 


041440 


3532 


016640 


042514 


051 101 


04044^ 


3533 


016646 


052106 


051 105 


051040 


2534 


016654 


051505 


052105 


000 


nS35 


016B5t 


1 14 


051513 


044440 


3^3o 


016666 


052116 


051 105 


052522 


1-37 


1 -,5-74 


C52120 


053440 


0521 11 


353S 


: 16702 


0201 10 


051120 


047511 


3539 


016710 


044522 


054524 


033440 


33 40 


C 167^6 


000 






3341 


015717 


103 


047101 


047040 


5 542 


016724 


052117 


051440 


052105 


3 54 3 


16732 


041040 


052111 


020066 


3544 


r 5 5740 


043117 


046040 


051513 


' ^ " 5 


U "^6 


000 






3 .'.■>6 


^'rA7 


103 


047101 


047040 


'O^'i"' 


16'' 54 


052117 


041440 


042514 


J 54? 


'6762 


051 101 


041040 


0521 11 


354S 


MST'^O 


020066 


043117 


046040 


i550 


.157-5 


051513 


000 




355^ 


f"1 7001 


122 


051505 


052105 


j35? 


' 1 7C06 


042040 


042111 


047040 


3553 


70 14 


0521 17 


041440 


042514 


3554 


CI'' 32 


051101 


041040 


0521 1 i 


35^5 


.'."0 30 


020066 


043117 


046040 


3556 


: 17036 


051513 


000 




3557 


5 7041 


104 


040525 


020114 



.ASCIZ /RCVR INTERRUPT WITH PRIORITY 7/ 



•ASCIZ /CAN NOT SET BIT6 OF RCSR/ 



.ASCIZ /CAN NOT CLEAR BIT6 OF RCSR/ 



.ASCIZ /CAN NOT CLEAR BIT6 OF RCSR WITH RESET/ 



.ASCIZ /BITS OF LKS NOT CLEAR AFTER RESET/ 



.ASCIZ /LKS INTERRUPT WITH PRIORITY 7/ 



.ASCIZ /CAN NOT SET BIT6 OF LKS/ 



.ASCIZ /CAN NOT CLEAR BITS OF LKS/ 



•ASCIZ /RESET DID NOT CLEAR BITS OF LKS/ 



.ASCIZ /DUAL ADDRESSING ERROR/ 



.MAIN. fvlACYII 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 
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TERMINAL OUTPUT TEST 



SEQ 0087 



3558 


017046 


042101 


051104 


051505 




3559 


017054 


044523 


043516 


042440 




3560 


017062 


051122 


051117 


000 




3561 


017067 


102 


052111 


020066 


EM41 


3562 


017074 


043117 


046040 


051513 




3563 


0171 02 


047040 


052117 


051440 




3564 


017110 


052105 


040440 


052106 




3565 


0171 16 


051105 


051040 


051505 




3566 


017124 


052105 


000 






3567 


017127 


103 


047101 


047040 


EM42 


3568 


017134 


052117 


041440 


042514 




3569 


017142 


051 101 


041040 


0521 11 




3570 


017150 


020067 


043117 


046040 




3571 


017156 


051513 


000 






3572 


017161 


102 


052111 


020067 


EM43 


3573 


017166 


043117 


046040 


051513 




3574 


017174 


042040 


042517 


020123 




3575 


017202 


047516 


020124 


042523 




3576 


017210 


000124 








3577 


017212 


052122 


020103 


0471 11 


EM44: 


3578 


017220 


042524 


051122 


050125 




3579 


017226 


020124 


052101 


050040 




3580 


017234 


044522 


051117 


052111 




3581 


017242 


020131 


000067 






3582 


017246 


052122 


020103 


047111 


EM45: 


3583 


017254 


042524 


051122 


050125 




3584 


017262 


051524 


053440 


042510 




3585 


017270 


020116 


044504 


040523 




3586 


017276 


046102 


042105 


000 




3587 


017303 








EM47i 


3588 


017303 


122 


041524 


044440 


EM46: 


3589 


017310 


052116 


051105 


052522 




3590 


017316 


052120 


042040 


0421 1 




3591 


017324 


047040 


052117 


047440 




3592 


017332 


041503 


051125 


000 




3593 


017337 


122 


041524 


042040 


EM50; 


3594 


017344 


052517 


046102 


020105 




3595 


017352 


047111 


042524 


051122 




3596 


017360 


050125 


000124 






3597 


017364 


042522 


042523 


020124 


EM51; 


3598 


017372 


044504 


020104 


047516 




3599 


017400 


020124 


047111 


042524 




3600 


017406 


051122 


050125 


000124 




3601 


017414 


052122 


020103 


047111 


EMS 2; 


3602 


017422 


042524 


051122 


050125 




3603 


017430 


020124 


044504 


020104 




3604 


017436 


047516 


020124 


046103 




3605 


017444 


040505 


020122 


044527 




3606 


017452 


044124 


041040 


0521 11 




3607 


017460 


020067 


043117 


046040 




3608 


017466 


051513 


000 






3609 


017471 


103 


047514 


045503 


EM53: 


3610 


017476 


051040 


050105 


040505 




3611 


017504 


040524 


044502 


044514 




3612 


017512 


054524 


000 






3613 


01751S 


130 


044515 


020124 


EMS4; 



.ASCIZ /BITS OF LKS NOT SET AFTER RESET/ 



.ASCIZ /CAN NOT CLEAR BIT7 OF LKS/ 



.ASCIZ /BIT7 OF LKS DOES NOT SET/ 



•ASCIZ /RTC INTERRUPT AT PRIORITY 7/ 



•ASCIZ /RTC INTERRUPTS WHEN DISABLED/ 



•ASCIZ /RTC INTERRUPT DID NOT OCCUR/ 



•ASCIZ /RTC DOUBLE INTERRUPT/ 



• ASCIZ /RESET DID "^OT INTERRUPT/ 



•ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS/ 



•ASCIZ /CLOCK REPEATABILITY/ 



.ASCIZ /XMIT INTERRUPTS WHEN DISABLED/ 



.MAIN. MACYtl 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 88 

TERMINAL OUTPUT TEST 



SEQ 0088 



3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3551 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 



017522 
017530 
017536 
017544 
017552 
017553 
017560 
017566 
017574 
017602 
017610 
01761 1 
017516 
017624 
017632 
017640 
017646 
017653 
017653 
017660 
017656 
017674 
017702 
017710 
017716 
017724 
017726 
017734 
017742 
017750 
017756 
017764 
017772 
017773 
020000 
020006 
020014 
020017 
C20024 
02C032 
020040 
020043 
020050 
020056 
020064 
02C072 
020100 
020105 
0201 1 1 
0201 16 
020124 
020132 
020140 
020146 
020147 
020154 



04711 1 

050125 

042510 

040523 

000 

130 

0471 1 1 

050125 

020124 

044522 

000 

130 

0471 1 1 

050125 

0521 1 1 

041101 

042514 

130 
044504 
020124 
051122 
046530 
026505 
051 122 
000104 
047514 
020107 
042040 
0521 17 
051 101 
051 105 

000 

122 
041501 
047040 
052105 

122 
047504 
053105 
052105 

122 
041501 
047040 
042514 
053440 
047504 
052105 

122 
042040 
0521 17 
051101 
020122 

000 

122 
040516 



042524 
051524 
0201 16 
046102 

044515 
042524 
051524 
051120 
054524 

044515 
042524 
051524 
020110 
042514 
051101 

044515 
020104 
0471 1 1 
050125 
052111 
047111 
050125 

042101 
041 124 
0421 1 1 
041440 
044440 
052522 

053103 
044524 
052117 

000 
053103 
042516 
051105 

000 
053103 
044524 
052117 
051 101 
052111 
042516 

000 
051505 
042111 
041440 
051040 
047504 

051104 
046102 



051122 
053440 
044504 
042105 

020124 
051 122 
040440 
047511 
033440 

020124 
051 122 
053440 
047105 
041440 
000 

020124 
047516 
042524 
000124 
051040 
042524 
042524 

0471 1 1 
043125 
047040 
042514 
052116 
052120 

020122 
042526 
051440 

020122 
047040 
051440 

020122 
042526 
041440 
042105 
0201 10 
051440 

052105 
047040 
042514 
0531 Ow 
042516 

042440 
020105 



•ASCIZ /XMIT INTERRUPTS AT PRIORITY 7/ 



EM57: .ASCIZ /XMIT INTERRUPTS WITH ENABLE CLEAR/ 



EM55: 
EM60: 



•ASCIZ /XMIT DID NOT INTERRUPT/ 

.ASCIZ /XMIT RE-INTERRUPTED/ 

.ASCIZ /LOADING TBUF DID NOT CLEAR INTERRUPT/ 

.ASCIZ /RCVR ACTIVE NOT SET/ 

.ASCIZ /RCVR DONE NEVER SET/ 

.ASCIZ /RCVR ACTIVE NOT CLEARED WITH DONE SET/ 

.ASCIZ /RESET DID NOT CLEAR RCVR DONE/ 

.ASCIZ /RDR ENABLE DID NOT CLEAR RCVR DONE/ 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-78 11:41 



11 :44 PAGE 89 

TERMINAL OUTPUT TEST 



SEQ 0089 



iiii 
iiP 



3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 



020162 
020170 
020176 
020204 
020212 
020220 
020226 
020234 
020242 
020250 
020256 
020257 
020264 
020272 
020300 
020306 
020314 
020321 
020326 
020334 
020342 
020350 
020356 
020357 
020364 
020372 
020400 
020406 
020414 
020422 
020426 
020426 
020434 
020442 
020450 
020455 
020462 
020470 
020476 
020501 
020506 
020514 
020522 
020530 
020536 
020544 
020546 
020554 
020562 
020570 
020576 
020604 
020611 
020616 
020624 
020632 



044504 
020124 
020122 
042040 
042522 
020107 
042040 
052117 
051101 
020122 
000 
122 
0471 11 
050125 
052111 
041101 
042514 
122 
0471 11 
050125 
020124 
044522 
000 
122 
047111 
052123 
042523 
044124 
046102 
040505 

041522 
0421 1 1 
044440 
052522 

122 
042522 
051105 
042105 

122 
043516 
020106 
047516 
040505 
042524 
000124 
042522 
044504 
020124 
020122 
044440 
052522 

047 
046106 
042111 
051440 



020104 
046103 
041522 
047117 
042101 
041122 
042111 
041440 
051040 
047504 

053103 
042524 
051524 
020110 
042514 
051101 
053103 
042524 
051524 
051120 
054524 

053103 
020124 
050040 
020104 
042440 
020105 
000122 

051126 
047040 
052116 
052120 
053103 
044455 
052522 
000 
040505 
051040 
044504 
020124 
020122 
051122 

042523 
020104 
046103 
041522 
052116 
052120 
051117 
043501 
047040 
052105 



047516 
040505 
051 126 
000105 
0471 11 
043125 
047040 
042514 
053103 
042516 

020122 
051122 
053440 
047105 
041440 
000 
020122 
051 122 
040440 
047511 
033440 

020122 
050522 
051501 
044527 
040516 
046103 



042040 
052117 
051105 
000 
020122 
052116 
052120 

044504 
052502 
020104 
046103 
0471 11 
050125 

020124 
047516 
040505 
051126 
051105 

000 
020047 
042040 
052117 

000 



EM72: 
EM75: 



.ASCIZ /READING R8UF DID NOT CLEAR RCVR DONE/ 



.ASCIZ /RCVR INTERRUPTS WITH ENABLE CLEAR/ 



.ASCIZ /RCVR INTERRUPTS AT PRIORITY 7/ 



.ASCIZ /RCVR INT RQST PASSED WITH ENABLE CLEAR/ 



.ASCIZ /RCVR DID NOT INTERRUPT/ 



EM76; .ASCIZ /RCVR RE-INTERRUPTED/ 



EM77: .ASCIZ /READING RBUF DID NOT CLEAR INTERRUPT/ 



EMIOO: .ASCIZ /RESET DID NOT CLEAR RCVR INTERRUPT/ 



.ASCIZ /'OR' FLAG DID NOT SET/ 



.MAIN. MACY11 30A(1052) 19-APR-78 
C2DLDC.P11 ig-APR-78 11:41 



11 :44 PAGE 90 

TERMINAL OUTPUT TEST 



SEQ 0090 



3726 


020637 


047 


051105 


047522 


3727 


020644 


023522 


047040 


0521 17 


3728 


020552 


051440 


052105 


053440 


3729 


020660 


0521 1 1 


020110 


047447 


3730 


020666 


023522 


043040 


040514 


3731 


020674 


000107 






3732 


020676 


051102 


040505 


0201 13 


3733 


020704 


044504 


020104 


047516 


3734 


020712 


020124 


046530 


052111 


3735 


020720 


040440 


046114 


055040 


3736 


020726 


051 105 


042517 


000123 


3737 


020734 


051 102 


040505 


0201 13 


3738 


020742 


044504 


020104 


047516 


3739 


020750 


020124 


042523 


020124 


3740 


020756 


043047 


023522 


042440 


3741 


020764 


051122 


051117 


000 


3742 


020771 


104 


052101 


020101 


3743 


020776 


047503 


050115 


051101 


3744 


021004 


020105 


051105 


047522 


3745 


021012 


000122 






3746 


021014 


040504 


040524 


041440 


3747 


021022 


046517 


040520 


042522 


3748 


021030 


042440 


051122 


051 1 17 


3749 


021036 


053440 


052111 


0201 10 


3750 


021044 


040503 


046102 


000105 


3751 


021052 


044524 


042515 


052517 


3752 


021060 


020124 


0471 1 1 


042440 


3753 


021066 


042530 


041522 


051511 


3754 


021074 


051 105 


052040 


051505 


3755 


021102 


000124 






3756 


021 104 


0471 1 1 


047503 


051122 


3757 


0211 12 


041505 


020124 


042522 


3758 


021120 


042503 


053111 


0201C- 


3759 


021126 


047503 


047125 


000124 


3760 


021134 


040504 


040524 


041440 


3761 


021 142 


04651 7 


040520 


042522 


3762 


021 150 


042440 


051122 


0511 17 


3763 


021156 


044440 


020116 


054105 


3764 


021 164 


051 105 


044503 


042523 


3765 


021172 


000122 






3766 


021 1 74 


051124 


050101 


041440 


3767 


021202 


052101 


044103 


051105 


3768 


021210 


000 






3769 


02121 1 


116 


0201 17 


046103 


3770 


021215 


0201 13 


0471 1 1 


042524 


3771 


021224 


051 122 


050125 


0201 24 


3772 


021232 


0471 1 1 


042440 


042530 


3773 


021240 


041522 


05151 1 


051 105 


3774 


021246 


000 






3775 


021247 


042 


051105 


047522 


3776 


021254 


021122 


047040 


052117 


3777 


021262 


051440 


052105 


053440 


3778 


021270 


0521 1 1 


020110 


043042 


3779 


021276 


021122 


043040 


040514 


3780 


021304 


000107 






3781 


021306 


041522 


020126 


041501 



.ASCIZ /'ERROR' NOT SET WITH 'OR' FLAG/ 



EMI 03: .ASCIZ /BREAK DID NOT XMIT ALL ZEROES/ 



EM104: .ASCIZ /BREAK DID NOT SET 'FR' ERROR/ 



.ASCIZ /DATA COMPARE ERROR/ 



.ASCIZ /DATA COMPARE ERROR WITH CABLE/ 



EM107: .ASCIZ /TIMEOUT IN EXERCISER TEST/ 



.ASCIZ /INCORRECT RECEIVE COUNT/ 



.ASCIZ /DATA COMPARE ERROR IN EXERCISER/ 



.ASCIZ /TRAP CATCHER/ 

.ASCIZ /NO CLK INTERRUPT IN EXERCISER/ 



.ASCIZ /"ERROR" NOT SET WITH "FR" FLAG/ 



EMI 15: .ASCIZ /RCV ACTIVE NOT CLEAR WITH INIT/ 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-7a 11:41 



11 :44 PAGE 91 

TERMINAL OUTPUT TEST 



SEQ 0091 



3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3793 
3799 
3800 
3801 
3302 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 
3835 
3836 
3837 



021314 
021322 
021330 
021336 
021344 
021345 
021352 
021360 
021366 
021374 
021402 
021404 
021412 
021420 
021426 
021434 
021442 
021450 

021451 
021456 
021464 
021472 
021476 
021504 
021512 
021520 
021523 
021530 
021536 
021544 
021550 
021556 
021564 
021572 
021575 
021602 
021610 
021616 
021621 
021626 
021634 
021642 
021650 
021655 
021662 
021670 
021676 
021704 
021712 
021720 
021722 
021730 
021736 
021744 
021752 



044524 
0521 17 
051 101 
0201 10 
000 
122 
052103 
044527 
020124 
052122 
000124 
042122 
041101 
052117 
051101 
0201 10 
041501 
000 

124 
020040 
051 1 17 
051503 
042524 
020040 
041520 
043125 

124 
020040 
050040 
051503 
042524 
020040 
041520 
043125 

124 
020040 
050040 
051513 

124 
020040 
050040 
047517 
041040 

124 
020040 
050040 
051513 
041440 
020040 
000062 
042524 
020040 
041520 
051123 
040504 



042526 
041440 
053440 
04711 1 

053103 
053111 
044124 
051442 
020042 

020122 
042514 
041440 
053440 
041522 
044524 



051505 
042440 
020043 
000122 
052123 
051105 
020040 

000 
051505 
042440 
020103 
000122 
052123 
051105 
020040 

000 
051505 
042440 
020103 

000 
051505 
042440 
020103 
020104 
042101 
051505 
042440 
020103 
020040 
052116 
041440 

052123 
051 105 
020040 
020040 
040524 



047040 
042514 
0521 11 
052111 

040440 
020105 
052517 
040524 
044502 

047105 
047040 
042514 
0521 11 
020126 
042526 



021524 DHi: 

051122 

052040 

020043 DH2: 

020122 

041 124 

021524 DH6: 
051 122 
051040 

020043 DH7: 

020122 

041122 

021524 DH10 

051122 

046040 

021524 DH40 
051 122 
043440 
020040 
000 
021524 DH53 
051122 
046040 
020040 
020061 
0521 16 

02004- DHIO; 
020122 
041522 
020040 
000 



.ASCIZ /RCV ACTIVE WITHOUT "START" BIT/ 



EMI 17: .ASCIZ /RDR ENABLE NOT CLEAR WITH RCV ACTIVE/ 



.ASCIZ /TEST* ERROR* TCSR/ 



.ASCIZ /TEST* ERR PC TBUF/ 



.ASCIZ /TEST* ERR PC RCSR/ 



.ASCIZ /TEST* ERR PC RBUF/ 



.ASCIZ /TEST* ERR PC LKS/ 



.ASCIZ /TEST* ERR PC GOOD BAD/ 



.ASCIZ /TEST* ERR PC LKS CNT1 CNT2/ 



•ASCIZ /TEST* ERR PC RCSR DATA/ 



m 



lllll 



.MAIN,. MACYtl 30A(1052) 19-APR-78 

C2DL.DC.P11 ?9"APR-78 11:41 
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TERMINAL OUTPUT TEST 



SEQ 0092 



3838 
3839 
3840 
3841 
3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3050 
3851 
3852 
3853 
3854 
3855 
3856 
3857 
3858 
3859 
3860 
3851 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3869 
3870 
3871 
3372 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 



021757 
021764 
021772 
022000 
022006 
022014 
022022 
022023 
022030 
022036 
022044 
022052 
022060 
022066 
022067 
022074 
022102 
0221 10 
022116 
022124 
022132 

022140 
022146 

022152 
022154 
022162 
022170 
022176 



022204 
022212 
022214 
022222 
022224 
022232 
022234 
022242 
022244 
022252 
022254 
022262 
022266 
022274 
022302 
022310 
022314 
022322 
022330 
022336 
022344 
022352 



124 
020040 
050040 
051503 
043440 
020040 
000 
124 
020040 
050040 
051503 
052040 
020040 
000 
124 
020040 
050040 
051503 
047440 
020040 
020120 

005015 
026504 

005015 
020040 
041511 
0421 16 
051505 



051505 
042440 
020103 
020122 
047517 
041040 

051505 
042440 
020103 
020122 
040522 
051040 

051505 
042440 
020103 
020122 
042114 
052040 
042101 

055103 
000103 



042040 
051505 
051105 
020124 



021524 
051 122 
051040 
020040 
020104 
042101 

021524 DH11 

051122 

051040 

020040 

051516 

053103 

021524 DH11 

051122 

051040 

020040 

041520 

040522 

000122 

046104 Mi: 



M2: 
053105 M2A: 
052440 
052040 
000040 



001072 
000000 
001072 
000000 
001072 
000000 
001072 

oocooo 

001072 
000000 
001072 
001022 
001072 
006600 
001072 
001026 
001072 
001024 
001072 
01 1730 
001072 
012300 
000001 



001016 
001016 



001016 

001016 
000000 
001016 
006602 
001016 
000000 
001016 
001026 
001016 
011726 
001016 
012302 



OH105: .ASCIZ /TEST# ERR PC RCSR 



.ASCIZ /TEST* ERR PC RCSR 



002352 

002354 

002346 

002350 

002406 

001020 

002406 
000000 
002346 

002346 
000000 
002346 
000000 
00234J 
000000 



DT1 : 

DT2: 

DT6t 

DT7: 

DT10: 

DT40: 

DT53: 

DT103: 

DTI 05: 

DT110: 

DT112: 



RCV/ 



.ASCIZ /TEST* ERR PC RCSR OLDPC TRAP ADR/ 



.EVEN 

.ASCIZ <CR><LF>/CZDLD-C/ 

.EVEN 

.ASCII <CR><LF> 

.ASCIZ / DEVICES UNDER TEST / 



.EVEN 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.END 



$TESTN,$ERRPC,TCSR,0 

$TESTN,$ERRPC,TBUF,0 

$TESTN,$ERRPC,R^.SR,0 

$TESTN.$ERRPC,RBUF,0 

$TESTN,«ERRPC,LKS,0 

STESTN , SERRPC , SGDADR , SBDADR , 

STESTN , SERRPC , LKS , F I RST , SECND . 

$TESTN,$ERRPC,RCSR,$BDDAT,0 

STESTN , SERRPC , RCSR , SGDDAT , SBDDAT , 

STESTN , SERRPC , RCSR , XMTCNT , RCVCNT , 

STESTN , SERRPC , RCSR , OLDPC , BDVECT , 



.MAIN. MACY11 30A(1052) 19-APR-78 
CZDLDC.P11 19-APR-7e 11:41 
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CROSS REFERENCE TABLE 



SEQ 0093 



— USER SYMBOLS 



ABASE = 

ACDW1 = 

ACDW2 = 

ACPUOP= 

ADDWO = 

ADDW1 = 

ADDW10= 

ADDW11= 

ADDW12= 

ADDW13= 

ADDW14= 

ADDW15= 

ADDW2 = 

ADDW3 = 

ADDW4 = 

ADDW5 = 

ADDW6 = 

ADDW7 = 

ADDW8 = 

ADDW9 = 

ADEVCT= 

ADEVM = 

ADR 

ADRTBL 

AENV = 

AENVM = 

AFATAL= 

AMADR1 = 

AMADR2= 

AMADR3= 

AMADR4= 

AMAMS1 = 

AMAMS2= 

AMAMS3= 

A!V1AMS4 = 

AMSGAD= 

AMSGLG= 

AMSGTY= 

AMTYP1 = 

AIV1TYP2 = 

AMTYP3= 

AMTYP4= 

APASS = 

APRIOR= 

APTCSU= 

APTENVr 

APTSIZ= 

APTSPO= 

APTS2D 

ASWREGs 

ATESTNs 

AUNIT = 

AUSWR = 

AVECT1= 

AV£CT2= 

BDVECT 



176500 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
003562 
002414 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 
000001 
000200 
000100 
003266 
000000 
000000 
000000 
000400 
000300 
000000 
012302 



537# 


650 


691 


650 






650 






650 


665 




650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 






650 


656 




650 


692 




1314# 


1317 




1139# 


1145 


1312 


650 


661 




650 


662 




650 


653 




650 


678 




650 


682 




650 


685 




650 


688 




650 


672 




650 


68C 




650 


683 




650 


686 




650 


658 




650 


659 




650 


652 




650 


673 




650 


681 




650 


684 




650 


687 




650 


655 




650 






2955# 


2988 




2731 


2910 


2953# 


1207 


2952# 




2912 


2954# 


2983 


1218 


1220 


1245^ 


650 


663 




650 


654 




650 


657 




539# 


650 


664 


538# 


650 


689 


650 


690 




2697* 


2703# 


3890 
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SEO 0094 



BEGIN 




003424 


BITO 


s 


000001 


BITOO 


3 


000001 


BIT01 


3 


000002 


BIT02 


3 


000004 


BITOa 


a 


000010 


BIT04 


s 


000020 


BIT05 


a 


000040 


BIT06 


B 


000100 


BIT07 


= 


000200 


BIT08 


s 


000400 


BIT09 


•& 


001000 


BIT1 


s 


000002 


BIT10 


s 


002000 


BIT11 


a 


004000 


BIT12 


s 


010000 


BIT13 


s 


020000 


BIT14 


■s 


040000 


BIT15 


a 


100000 


aiT2 


s 


000004 



BITS 


s 


000010 


BIT4 


3 


000020 


BIT5 


S 


000040 


BIT6 


3 


000100 



BIT? = 000200 



BITS = 


000400 


BITS = 


001000 


BPT s 


000003 


BPTVEC= 


000014 


BUF 


01 1742 


CATCH 


012254 


CKSWR = 


104406 


CLK 


011720 


CLKCNT 


011732 


CMPARE 


006536 


COMP 


011560 


CONT 


005566 


C0NT41 


010724 


CR 


000015 


CRBUF 


002370 


CRCSR 


002366 


CRLF = 


000200 


CRPSW 


002400 


CRVECT 


002376 


CTBUF 


002374 


CTCSR 


002372 



1287# 


2686 
























522* 


1215 


1289 


1481 


1492 


1493 


1498 


1499 


1510 


1512 


1514 


216? 


2172 


2177 


2408 


2415 


2420 


2424 


2437 


2441 














512# 


522 
























511# 


521 
























510# 


520 
























509^ 


519 
























508(^ 


518 
























507# 


517 
























506# 


516 
























505;!' 


515 
























504# 


514 
























503)^ 


513 


2742 


2881 




















521# 


1287 


1723 






















502(i' 


2373 


2431 






















501# 


2109 


2118 


2128 


2144 


















500# 


3315 
























499# 


2442 


2726 






















49B# 


2384 


2865 






















497*^ 


2389 


2447 






















520^ 


1523 


1536 


1537 


1542 


It .3 


1555 


1557 


1560 


2106 


2113 


2124 


2131 


2140 


2146 


2154 


2158 


2168 


2180 


2191 


2196 


2209 


2217 


2220 


2228 


2233 


2247 


2254 


2264 


2267 


2285 


2289 


2322 


2326 


2351 


2376 


2383 


2403 


2415 


2420 


2424 


2436 


2441 


2462 


2479 


2482 


2544 












519/^ 


























518# 


1211 


1282 


1420 


1724 


1977 
















517* 


1219 


2591 


2609 




















516# 


1574 


1584 


1585 


1591 


1592 


1597 


1599 


1616 


1626 


1627 


1633 


1634 


1640 


1642 


1657 


1675 


1682 


1692 


1693 


1699 


1700 


1704 


1706 


1735 


1736 


1760 


1792 


1801 


1824 


1832 


1846 


1856 


1874 


1885 


1892 


18.99 


1914 


1921 


1928 


1946 


1948 


1989 


2002 


2007 


2016 


2023 


2030 


2047 


2056 


2066 


2079 


2084 


2092 


2207 


2208 


2226 


2232 


2251 


2259 


2290 


2301 


2321 


2331 


2350 


2359 


2539 


2543 


2545 


2546 


2559 


2578 


2611 












515# 


1217 


1768 


1769 


1771 


1772 


1800 


1823 


1855 


1891 


1920 


1924 


2490 


3330 


3383 
























514# 


1478 


2400 


2433 




















513# 


























542# 


























529# 


























2551 


2586 


2631 # 






















553 


2695<i' 
























2741 


2864 


3296# 






















2541 


2622* 
























2580 


2622* 


26274' 






















1964 


1967# 
























2588* 


2592 
























1778^ 


1781 
























2411 


2418# 
























437# 


2676 


3027 


3037 


3348 


3350 


3352 


3354 


3860 


3863 








1126# 


3312 


3313 


3387* 




















1125# 


1237 


1293 


3310 


3381 


















438# 


2998 


3037 






















1130/^ 


























1129# 


























1128# 


3309* 


3312* 


3343* 


3374* 


















1127# 


3341 


3372 
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SEQ 0095 



CTPSW 


002404 


CTSTFL 


002336 


CTVECT 


002402 


DDISP = 


177570 


DEVADR 


002514 


DH1 


021451 


DH10 


021575 


DH103 


021722 


DH105 


021757 


DH110 


022023 


DH112 


022067 


DH2 


021476 


DH40 


021621 


DH53 


021655 


DH6 


021523 


DH7 


021550 


DISPLA 


001042 


DISPRE 


000174 


DSWR « 


177570 


DTI 


022204 


DT10 


022244 


DTI 03 


022302 


DT105 


022314 


DT110 


022330 


DTI 12 


022344 


DT2 


022214 


DT40 


022254 


DT53 


022266 


DT6 


022224 


DT7 


022234 


DVADT 


003314 


ECHO 


014762 


EMTVECs 


000030 


EMI 


015266 


EM10 


015532 


EMI 00 


020546 


EM101 


020611 


EM102 


020637 


EM103 


020676 


EMI 04 


020734 


EMI 05 


020771 


EMI 06 


021014 


EM107 


021052 


EM11 


01 5555 


EM1 10 


021104 


EM 111 


021134 


EM 11 a 


021174 



1132* 

1108# 

1673 

1131# 

444# 

1145# 

713 

798 

748 

908 

1044 

1054 

1069 

1079 

718 

868 

923 

738 

998 

1099 
743 
633# 
563* 
443# 
714 
799 
749 
909 

1045 

1055 

1070 

1080 
719 
869 
924 
739 
999 

1100 
744 

1251 
568 
532* 
712 
747 

1027 

1033 

1038 

1043 

1048 

1053 

1058 

1063 
752 

1068 

1073 

1078 



1160* 
1758 

633 

1222 

723 

803 

843 

913 

3833* 

1059 

3845* 

3852# 

3805# 

3821* 

3826* 

818 

1003 

1104 

3813* 

1195* 

1203 

632 

724 

804 

844 

914 

3884* 

1060 

3888* 

3890* 

3872* 

3880* 

3882* 

819 
1004 
1105 
3876* 
1253* 
3307* 
1179* 
3392* 
3424* 
3716* 
3722* 
3726* 
3732* 
3737* 
3742* 
3746* 
3751* 
342E.' 
3756* 
3760* 
3766* 



1213* 
1790 

1195 
1253 
728 
808 
848 
918 

1074 



823 
1008 
3809* 

1203* 

1194 
729 
809 
849 
919 

1075 



824 
1009 
3674* 



3336 
1180* 



1292* 
1844 



733 

813 

853 

1084 

3838* 



828 
1013 



1339 
1883 



753 

928 

858 

3817* 



833 
1018 



1361 
1912 



1385 
1944 



1399 
2537 



1483 
2576 



1501 
2640* 



758 763 
933 938 
863 873 



768 


773 


778 


783 


788 


943 


948 


953 


958 


3801# 


878 


883 


888 


893 


898 



838 
1023 



963 
1028 



2721* 2892* 



734 

814 

854 

1085 

3886* 



829 
1014 



754 

929 

859 

3878* 



834 
1019 



759 764 
934 939 
864 874 



839 
1024 



964 
1029 



968 
1034 



769 
944 
879 



969 
1035 



973 
1039 



774 
949 
884 



974 
1040 



978 
1049 



779 
954 
689 



979 
1050 



983 
1064 



988 
1089 



993 
1094 



784 789 794 

959 3870# 

894 899 904 



984 
1065 



989 
1090 



994 
1095 
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EM113 


021211 


EIV1114 


021247 


EM115 


021306 


EM116 


021345 


EM117 


021404 


EMI 2 


015620 


EM13 


015651 


EIV114 


015704 


EM15 


015745 


EM16 


016010 


EM17 


016041 


EM2 


015312 


EM20 


016074 


EM21 


016135 


EM22 


016201 


EM23 


016236 


EM24 


016267 


EM25 


016322 


EM26 


016363 


EM27 


016426 


EMS 


015336 


EM30 


016465 


EIVI31 


016516 


EM32 


016551 


EIVI33 


016617 


EM34 


016661 


EM35 


016717 


EM36 


016747 


EiM37 


017001 


EIV14 


015403 


EM40 


017041 


EM41 


017067 


EM42 


017127 


EM43 


017161 


EM44 


017212 


EM45 


017246 


EM'qe 


017303 


EiV147 


017303 


EMS 


015425 


EM50 


017337 


EIV151 


017364 


EM52 


017414 


EM53 


017471 


EM54 


017515 


EM55 


017653 


EM56 


017553 


EM57 


017611 


EMS 


015462 


EM60 


017653 


EM61 


017702 


EM62 


017726 


EM63 


017773 


EM64 


020017 


EM65 


020043 


EM66 


020111 


EM67 


020147 



1083 


3769# 


1088 


3775# 


1093 


3781/S' 


1098 


3787^ 


1103 


3793# 


757 


3434# 


762 


3439# 


767 


3444^ 


772 


3450# 


777 


3456# 


782 


3461/!' 


717 


3396* 


787 


3466# 


792 


3472# 


797 


3479# 


802 


3484* 


807 


3489* 


812 


3494# 


817 


3500* 


822 


3506* 


722 


3400* 


827 


3512* 


832 


3517* 


837 


3522* 


842 


3529* 


847 


3535* 


852 


3541* 


857 


3546* 


862 


3551* 


727 


3407* 


867 


3557* 


872 


3561* 


877 


3567." 


882 


3572* 


887 


3577* 


892 


3582* 


897 


3588* 


902 


3587* 


732 


341 1* 


907 


3593* 


912 


3597* 


917 


3601* 


922 


3609* 


927 


3613* 


932 


3631* 


937 


3619* 


942 


3625* 


737 


3416* 


947 


3632* 


952 


3636* 


957 


3640* 


962 


3647* 


967 


3651* 


972 


3655* 


977 


3662* 


982 


3668* 
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SEO 009? 



EM7 


015506 


EM70 


020212 


EM71 


020257 


EM72 


020426 


EM73 


020321 


EM74 


020357 


EM75 


020426 


EM76 


020455 


EM77 


020501 


ENDEV 


012052 


ENDMG 


012172 


ERRVEC= 


000004 


FIRST 


006600 


GNS 


****** 


GOAGIN 


012206 


GTSWR = 


104405 


HT 


000011 


ID 


004056 


INIT 


003112 


IOTVEC= 


000020 


LF 


000012 


LKS 


002406 



MANL 




003132 


MFR 




015145 


MOR 




015157 


MPAR 




015134 


MSG 




015106 


MSTOP 




015172 


Ml 




022140 


M2 




022152 


M2A 




022154 


OLDPC 




012300 


OUTTSl 




015202 


PIRO 


= 


177772 


PIRQVE 


;= 


000240 


PRO 


= 


000000 


PR1 


= 


00004C 


PR2 


3 


000100 


PR3 


a 


000140 


PR4 


s 


000200 


PR5 


= 


000240 


PR6 


= 


000300 


PR7 


= 


000340 


PS 


s 


177776 


PSW 


s 


177776 


PWRVEC 


la 


000024 


RBUF 




002350 



742 


3420* 




















987 


3674* 




















992 


3681* 




















997 


3700* 




















1002 


3687* 




















1007 


3693* 




















1012 


3701* 




















1017 


3705* 




















1022 


3709* 




















2605 


2636* 




















2663 


2676* 




















525* 


1192 


1193* 


1204* 


2870 


2871* 


2873* 


2876* 








1965* 


1967 


1981* 


3882 
















3289 


3290 


3291 


3292 


3294 


3296 


3297 


3298 








2673 


2679* 




















3294* 






















435* 


2996 


3037 


















1214 


1395 


1402 


1410* 
















1212 


1215* 




















530* 


1177* 


1178* 


















436* 


2676 


3031 


3037 


3348 


3LjO 


3352 


3354 


3860 


3863 




1135* 


1661 


1682 


1692* 


1693 


1699* 


1700 


1704* 


1706 


1726 


1763 


1771* 


1772 


1778 


1800* 


1801* 


1802 


1810* 


1814 


1823* 


1824* 


1825 


1856* 


1857 


1874* 


1891* 


1892* 


1893 


1899* 


1920* 


1921* 


1922 


1924* 


1953* 


1954 


1956* 


1957 


1960* 


2543* 


3878 


3882 








1216 


1219* 




















3324 


3350* 




















3329 


3352* 




















3319 


3348* 




















3318 


3323 


3328 


3333 


3339* 


3378 












3334 


3354* 




















1417 


3860* 




















1419 


3863* 




















1284* 


3864* 




















2698* 


2702* 


3890 


















569 


3370* 


3384 


3389 
















442* 






















536* 






















459* 






















460* 






















461* 






















462* 






















463* 






















464* 






















465* 






















466* 






















439* 


440 




















440* 






















531* 


1183* 


1184* 


2809* 


2810* 


2819* 


2827* 


2836* 


2837* 






1115* 


1462 


2195 


2327* 


2384 


2389 


2407* 


2418 


2442 


2447 


2470 


3876 






















1 1 14* 


1294 


1313 


1448 


1616 


1626* 


1627 


1633* 


1634 


1640* 


1w42 


2118 


2128 


2136 


2144 


2151 


2158* 


2167* 


2170 


2172 


2177* 


2178 


2208* 


2215 


2226* 


2232* 


2249 


2251* 


2259* 


2287 


2290* 


2301* 


2321* 


2350* 


2353 


2359* 


2405 


2410 


2439 


2468 


2500 


2546* 


3874 


3884 


3890 























1768* 1769 
1832>!' 1855* 
1928* 1948* 



2507 



2617 



1728 S109 

2193 2197 

2324 2331* 

38e6 3sei 
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SEQ 0098 



RCV 


01 1704 


RCVCNT 


01 1736 


RDCHR = 


104407 


RDLIN = 


104410 


RESVEC= 


000010 


RPSW 


002360 


RSTRT 


012232 


RTCPSW 


002412 


RTCVT 


002410 


RVECT 


002356 


SCPSW 


011740 


SECND 


006602 


SETADR 


003530 


SHIFT 


003370 


SIZE 


003142 


SRPSW 


011736 


STACK = 


001100 


START 


002546 


STKLMT= 


177774 


STPSW 


01 1734 


SWR 


001040 


SWREG 


000176 


SWO = 


000001 


swoo = 


000001 


SW01 - 


000002 


SW02 = 


000004 


SW03 = 


000010 


SW04 - 


000020 


SWOB ^ 


000040 


SW06 = 


000100 


SW07 = 


000200 


S.'J08 = 


000400 


Sa!09 = 


00 t 000 


SWI - 


000002 


SW10 ■" 


002000 


SW11 s 


004000 


S'.\'12 = 


010000 


S-VIS = 


020000 


SW14 -r. 


040000 


S.-,'15 = 


t 00000 


Sai2 


000004 


Siv'3 


000010 


S'.V4 r. 


000020 


Si^5 


000040 


SWb 


000100 


SW7 


000200 


SW3 


000400 


SW9 = 


001000 


TBITVEs 


000014 


TSUF 


002354 



TCLOCK 005056 



2535 

2548* 

3229 

3298/S' 

526# 

1 1 \%M 

2681 

1 I37il' 

1136i^ 

1889 

1 1 1B# 

2281* 

2532* 

1974* 

1302 

1274# 

1222# 

2531* 

430# 

567 

441)^ 

2530* 

632# 

1760 

2578 

564^ 

494# 

4B4# 

483* 

482)^ 

481i¥ 

480i¥ 

479# 

47B# 

477# 

476* 

475# 

493# 

474;!C 

473# 

472# 

471# 

470# 

469# 

492# 

491# 

490# 

489# 

488# 

487# 

486# 

485# 

1117^ 
2248* 
1422 



2617# 

25S5 

3297^ 



2280 

26a5# 

1797 

1678 

1890* 

1612 

2297* 

2604 

1982# 

I30a# 

1283 

2603 

1157# 

2602 
1173 
1792 
2726 
1202 

494 
493 
492 
491 
490 
489 
488 
487 
486 
485 



2282* 

1799^ 
1679* 
1905* 
1613* 
2302* 
2630^ 
3882 



2628# 

1194* 

1846 

2738 

3126 



1357 1376* 
2286* 2323* 
1650# 



2303* 

1834* 
171 1* 
1918 
1647* 
2309* 



2531 

1850 

1796 

1919* 

2210 

2319 



2536* 

1852* 
1798* 
1935* 
2211* 
2320* 



2603* 

1876* 

1811* 

2529 

2225* 

2337* 



2532 

1822* 

2541* 

2235* 

2348 



2542* 

1833* 

2601* 

2245 

2349* 



2604* 
1849 



2246* 
2366* 



) 



2260* 
2528 



2271* 
2535* 



2279 
2600* 



1196 
1885 
2742 
3139 



1202* 

1914 

2817 



1209* 1211 
1946 1977 
2829* 2865 



1219 


1420 


1478 


1657 


1675 


1724 


2373 


2400 


2431 


2433 


2490 


2539 


2881 


3126 


3163* 









1381* 
2352* 



1429* 
2378* 



1432* 
2404* 



2085* 
2438* 



2088* 
2467* 



2108* 
2498* 



2135* 
2552* 



2169* 
2613* 



2192* 

3872 
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SEQ 0099 



TOONS 
TCSR 



003450 
002352 



TKVEC = 


000060 


TMP1 


002340 


TMP2 


002342 


TMP3 


002344 


TDLER 


006550 


TPSW 


002364 


TPVEC = 


000064 


TRAPVE= 


000034 


TRTVEC= 


000014 


TSTDEV 


003500 


TSTDVM 


003276 


TST1 


003522 


TST10 


004424 


TST11 


004572 


TST12 


004724 


TST13 


005064 


TST14 


005134 


TST15 


005304 


TST16 


005474 


TST17 


005602 


TST2 


003674 


TST20 


006020 


TST21 


006166 


TST22 


006302 


TST23 


006430 


TST24 


006604 


TST25 


006704 


TST26 


007016 


TST27 


007144 


TST3 


003746 


TST30 


007250 


TST31 


007470 


TST32 


007560 


TST33 


007626 


TST34 


007776 


TST35 


010140 


TST36 


010306 


TST37 


010422 


TST4 


004126 


TST40 


010530 


TST41 


010626 


TST42 


010750 


TST43 


01 1054 


TST44 ■ 


011154 


TST45 


011252 


TST5 


0041S2 


TST6 


004214 


TST7 


004246 



1290 
1 1 16# 
1512 
1591* 
2054 
2154* 
2264* 
2420* 
534# 
1109,* 

I 1 10(S' 

II 1 1# 
1969 

1 121# 
535# 

528/S' 
1291 
1247)^ 
1298 
1521# 
1479 
1558 
1654# 
1656 
1674 
1757# 
1759 
1354# 
1791 
1845 
1884 
1913 
1945 
2015# 
2046# 
2078# 
1375# 
2104# 
2159 
2179 
2198 
224 1,j^ 
2277# 
2315i* 
2344# 
1407 
2372* 
2374 
2401 
2432 
2489^ 
2491 
1436 
1459^ 
1477# 



1292# 

1335 

1514* 

1592 

2056* 

2168* 

2267* 

2424* 

1288* 
1223* 
1287» 
1971# 
1296 

1181* 

1301# 

1252 

1324 

1513 
1610# 

1658 
1676 

1761 

1793 
1847 
1886 
1915 
1947 



2165# 
2189# 
2206# 



2399# 
2430# 
2434 

2512 

1445# 



1377 

1523 

1597* 

2066* 

2180* 

2285* 

2436* 

1304* 
1231* 
1301 

2049 

1182* 

1306 

1332# 

1568# 



1672# 
1717* 

1779 

1843# 
1882(1' 
1911# 
1943# 
1978 



2458# 

2523* 



1382 

1536* 

1599 

2079* 

2191* 

2289* 

2437* 

1310 

1241* 

1303* 



2641 
2683 



1394 

1537 

1989* 

2084* 

2196* 

2322* 

2441* 

1311* 
1245* 
1309* 



1430 

1542* 

1992 

2086 

2207* 

2326* 

2462* 



1435 

1543 

2002* 

2092* 

2209* 

2351* 

2479* 



1481 

1555* 

2007* 

2106* 

2217* 

2376* 

2482* 



1492* 

1557 

2016* 

2113* 

2220* 

2379 

2544* 



1493 

1560* 

2021 

2124* 

2228* 

2383* 

2545* 



1498* 

1574 

2023* 

2131* 

2233* 

2403* 

2559 



1499 

1584* 

2030* 

2140* 

2247* 

2408* 

2611* 



1510* 

1585 

2047* 

2146* 

2254* 

2415* 

3870 



m 
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TVECT 


002362 


1120# 


1570 


1571* 


1604* 


1990 


1991* 


2001* 


2009* 


2019 


2020* 


2031* 


2040-S' 


2048 






2050* 


2062* 


2072* 


2082 


2083* 


2098* 


2527 


2533* 


2599* 










TYPE ^ 


104401 


1416 


1418 


2663 


2729 


2764 


2781 


2783 


2786 


2788 


2792 


2799 


2841 


3001 






3097 


3137 


3138 


3141 


3154 


3165 


3184 


3233 


3236 


3240 


32a9if 






TYPOC = 


104402 


2772 


2796 


3140 


3290/1^ 




















TYPON = 


104404 


3292* 


























TYPOS = 


104403 


3291# 


























VCTADR 


003320 


1243 


1257# 
























VCTTBL 


002454 


1 140# 


1257 


1319 






















VECT 


003602 


1320# 


1323 
























WACTV 


007270 


2109# 


2112 
























WAIT 


015114 


3341* 


3342 


3345 






















WDONE 


007376 


2136(y 


2139 
























WRPSW 


012242 


1572 


1614 


1680 


1794 


1812 


1853 


1865 


1887 


1896 


1916 


1925 


1936 


1994 






2017 


2032 


2052 


2063 


2080 


2089 


2212 


2243 


2261 


2283 


2298 


2317 


2328 






2346 


2356 


2525 


2553 


26a8# 


















WT 


007340 


2125# 


2127 
























XCONT 


011674 


2610 


261 3# 
























XMIT 


011650 


2533 


2607# 
























XMTCNT 


011730 


2547* 


2565 


2607* 


2626# 


3888 


















XRET 


011700 


2612 


2614# 
























$APTHD 


000500 


591 


597# 
























SASTATx 


****** u 


1344 


1366 


1390 


1404 


1488 


1506 


1532 


1551 












$ATYC 


013176 


2903 


2905# 
























$ATY1 


013152 


2901# 


























$ATY3 


013160 


2902# 


2986 
























$ATY4 


013170 


1344 


1366 


1390 


1404 


1488 


1506 


1532 


1551 


2734 


2904# 








$AUTOB 


001034 


629# 


3134 


3255 






















SBASE 


001142 


691# 


1146 


1227 


1235 




















SBDADR 


001022 


624# 


1729* 


1730* 


1731 


1733* 


1734 


1735* 


1738* 


3880 










SBODAT 


001026 


626# 


2410* 


2478* 


2515* 


2595* 


3884 


3886 














SCHARC 


013676 


3003* 


3013* 


3020 


3029* 


3034# 


















SCKSWR 


014130 


3126# 


3296 
























SCMTAG 


001000 


612# 


1170 


1171 


1179 


1185 


1186 
















$CM3 = 


000000 


642# 


























SCNTLG 


014655 


3137 


3250# 
























SCNTLU 


014650 


3154 


3249# 
























SCPUOP 


001114 


665# 


























$CRLF 


001063 


644# 


2729 


2764 


2783 


2788 


2792 


3002 


3037 


3165 


3249 


3380 






SDEVCT 


001075 


656# 


1161* 


1414 


2637* 


2638 


2679* 
















SDEVM 


001144 


692# 


1224* 


1230* 


1233* 


1240* 


1246 


1289 


1301 












SDOAGN 


012162 


2659 


2665 


2671# 






















SENDAD 


012152 


578 


2667# 


2749 






















SENDCT 


012132 


1185 


266 1# 
























SENULL 


012166 


2674# 


























$ENV 


001106 


661# 


1215 


2731 


2910 


2934 


2981 
















SENVM 


001107 


662# 


1207 


1217 


2912 


2983 


2988 
















$EOP 


012102 


1979 


2639 


2652# 






















SEOPCT 


012124 


1185* 


2658# 


2662 






















SERFLG 


001003 


615# 


2719* 


2856 


2879 


2885* 


2895 
















SERMAX 


001015 


621# 


1187* 


2891* 


2895 




















SERROR 


012304 


1179 


27l8*r 
























SERRPC 


001016 


622# 
3886 


2723* 
3888 


2724* 
3890 


2725 


2770 


3870 


3872 


3874 


3876 


3878 


3880 


3882 


3884 


SERRTB 


001146 


709# 


2778 
























SERRTY 


012466 


2728 


2763# 
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SEQ 0101 



I 



1 



$ERTTL 


001012 


SESCAP 


001060 


SETABL 


001106 


SETEND 


001146 


SFATAL 


001070 


$FFLG 


013416 


SFILLC 


001056 


SFILLS 


001055 


$GDADR 


001020 


SGDDAT 


001024 


$GET42 


012142 


SGTSWR 


014200 


$H1BTS 


000500 


$ICNT 


001004 


SILLUP 


012762 


SINTAG 


001035 


$1TEMB 


001014 


$LF 


001064 


$LFLG 


013415 


$LPADR 


001006 


SLPERR 


001010 


SMADRI 


001120 


$MADR2 


001124 


$IV1ADR3 


001130 


$(VIADR4 


001134 


$MAIL 


001066 


SMAMSI 


001 1 16 


$MAMS2 


001122 


$IVIAMS3 


001126 


$MAIVIS4 


001132 


$MBADR 


000502 


$MFLG 


013414 


$MNEW 


014673 


$MSGAD 


001102 


SMSGLG 


001104 


SMSGTY 


001066 


SMSWR 


014662 


SMTYPI 


001117 


$MTYP2 


001123 


$IV1TYP3 


001127 


$MTYP4 


001133 


$NULL 


001054 


$NWTST= 


000001 


SOCNT 


014124 


SOIVIODE 


014126 


$OVER 


013136 


$PASS 


001074 


$PASTM 


000506 


SPOWER 


012770 


SPWRDN 


012622 


SPWRMG 


012756 


SPWRUP 


012674 


SOUES 


001062 


SRDCHR 


014412 



619# 

6A2M 

660# 

603 

653# 

2901* 
640# 
639# 
623# 
625# 

2664# 

3138# 
598# 
616(f' 

2809 
630# 
620# 
645# 

2942* 
617# 
618# 
678# 
682# 
685# 
688# 
599 
672# 

6eo# 

683# 
686# 
599# 
2902* 
3141 
658# 
659# 
652# 
3138 
673# 
681# 
684# 
687# 
638# 
1329# 
1754# 
2203# 
3069* 
3064* 
2866 
655# 
601# 
2842 
1183 
2842# 
2819 

643# 
3197# 



2722* 
1186* 

693# 
1157* 
2904* 
3006 
3037 
1726* 
1734* 

3294 



2827 

3166 

2725* 

3037 

2948# 

1188* 

1189* 



2908 

3253# 

2918* 

2923* 

1158* 

3251# 



3008 

1351# 

1786# 

2238# 

3098* 

3068* 

2884 

1206* 

2847# 
2809# 

2827* 

3037 

3297 



2938* 

2932 

3037 

1728* 
1738 



2844# 
3255 
2733 
3240 

2883* 
2744 



2943* 

2921 

2916 



3037 

1372* 

IBAOtf 

221AH 

3111# 

3073 

2892# 

1412 



2836 
3184 



1729 
2477* 



2767 
3249 



1731 
2514* 



1736 
2596* 



3880 
3886 



2888* 2893 2895 
2883 2889* 2895 



1206 2887 2981 



2924* 2936 2939* 



1425* 1442# 
1879* 1908# 
231 2# 2341* 



3076* 3087* 3113# 
2655* 2656* 2674 



1456* 


1474# 


ISIB* 


1565# 


1607# 


1651# 


1669# 


1714# 


1940* 


1985* 


2012# 


2043# 


2075#. 


2101# 


ai62# 


2186/1' 


2369* 


2396# 


2A27if 


2455# 


2486^!' 


2520 # 
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SEO 0102 



$RDDEC= 


****** u 


3299 


























$RDLIN 


014532 


3225<S^ 


3298 
























SRDOCTa 


****** U 


3299 


























$RDS2 = 


000010 


32ia# 


























SRTNAD 


012164 


2673# 


























$R2A 3 


****** y 


3299 


























SSAVREss 


****** u 


3299 


























$SAVR6 


012766 


2818* 


2828 


2838* 


2839* 


2846* 


















$SCOPE 


013000 


1177 


2863* 
























$SETUP= 


000137 


560# 


1176 


1177 


1179 


1181 


1183 


1185 


1186 


1188 


2654 


2864 


3121 


3255 


$STUP = 


177777 


560# 


























SSVLAD 


013102 


2874 


2880 


2886* 






















$SVPC = 


000500 


576# 


581 
























$SWR a 


161000 


541# 


642 


643 


1186 


1188 


1189 


1333 


1355 


1376 


14*9 


1446 


1460 


1478 






1522 


1569 


1611 


1655 


1673 


1718 


1758 


1790 


1844 


1883 


1912 


1944 


1989 






2016 


2047 


2079 


2105 


2166 


2190 


2207 


2242 


2278 


2316 


2345 


2373 


2400 






2431 


2459 


2490 


2524 


2649 


2655 


2666 


2672 


2674 


2857 


2858 


2859 


2860 






2865 


2877 


2879 


2880 


2881 


2886 


2889 


2892 


2895 










SSWREG 


001110 


663# 


1209 
























$SWRMK= 


000000 


2860 


























$TESTN 


001072 


654# 
3890 


1159* 


2887*- 


■ 3870 


3872 


3874 


3876 


3878 


3880 


3882 


3884 


3886 


3888 


$TKB 


001046 


635# 


3119 


3130 


3147 


3201 


3207 
















$TKS 


001044 


634# 


3119 


3128 


3144 


3168* 


3199 


3205 














$TN = 


000046 


540* 


1329 


1333* 


1351 


1355* 


1372 


1376* 


1425 


1429* 


1442 


1446* 


1456 


1460* 






1474 


1478* 


1518 


1522* 


1565 


1569* 


1607 


161 1* 


1650 


1651 


1655* 


1669 


1673* 






1714 


1718(5' 


1754 


1758* 


1786 


1790* 


1840 


1844* 


1879 


1883* 


1908 


1912* 


1940 






1944# 


1985 


1989* 


2012 


2016* 


2043 


2047* 


2075 


2079* 


2101 


2105* 


2162 


2166* 






2186 


2190* 


2203 


2207* 


2238 


2242* 


2274 


2278* 


2312 


2316* 


2341 


2345* 


2369 






2373* 


2396 


2400* 


2427 


2431* 


2455 


2459* 


2486 


2490* 


2520 


2524* 






$TPB 


001052 


637# 


3026* 


3037 






















STPFLG 


001057 


641# 


2975 


3037 






















$TPS 


001050 


636# 


302^ 


3037 






















STRAP 


014704 


1181 


3266* 
























$TRAP2 


014726 


3277# 


3288 
























$TRP = 


000011 


3281# 


3290* 


3291* 


3292* 


3293* 


3294 


3295* 


3296 


3297# 


3298* 


3299* 






$TRPAD 


014740 


3271 


3288* 
























STSTM 


000504 


600# 


























STSTNM 


001002 


614# 


1650* 


2636* 


2654* 


2721 


2856 


2886* 


2887 


2892 


2895 








STTYIN 


014640 


3226 


3227 


3244 


3248* 




















$TYPBN= 


****** U 


3293 


























$TYPDS= 


****** u 


3293 


























STYPE 


013420 


2929 


2975* 


3281 


3289 




















STYPEC 


013632 


3005 


3012 


3019 


3024* 


3025 


3170 
















STYPEX 


013700 


3030 


3032 


3035* 






















STYPOC 


013726 


3067# 


3290 
























STYPON 


013742 


3066 


3069* 


3292 






















STYPOS 


013702 


3062# 


3291 
























SUN IT 


001100 


657# 


1162* 


1305* 


1308* 


2685* 


















SUNITM 


000510 


602# 


























SUSWR 


001 1 12 


664# 


1163 


1165* 


2471 


2508 


















$VECT1 


001136 


689# 


1258 
























$VECT2 


001140 


690# 


























SXTSTR 


013012 


2868* 


























$$GET4== 


000000 


2666# 


























SOFILL 


014125 


3063* 


3067* 


3077 


3112* 





















i 
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SEQ 0103 


$40CAT= ****** U 
= 022360 


2865 
545* 
590* 

2821 


551 

592* 
2845 


552* 556* 

611* 646 

2895 2951* 


562* 
1139* 
3037 


566* 571* 
1140* 1174 
3119 3248* 


576 
1188 
3249 


577* 
1189 
3255 


579* 
2631* 
3358* 


581* 
2674 


587 
2675* 


588* 
2802* 


.SERRT 001146 
.$X = 000500 


711* 
587* 


592 




















. ABS. 022360 000 

























ERRORS detected: 

DSK2 : CZDLDC , DSKZ : CZDLDC . SEO=DSKZ :CZDLDC. PI 1 
RUN-TIME: 25 14 1 SECONDS 
RUN-TIME RATIO: 357/41=8.6 
CORE USED: 21K (41 PAGES) 

DOCUMENT PAGES: 103 
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